Sub RunPowerShellScript()
    Dim scriptPath As String
    Dim cmd As String

    ' Set the path to your PowerShell script
    scriptPath = "E:\CyberCheck\Udemy\test.ps1"

    ' Build the command to open PowerShell and run the script
    cmd = "powershell.exe -ExecutionPolicy Bypass -File " & scriptPath

    ' Open the command prompt and run the PowerShell script
    Shell "cmd /c " & cmd, vbNormalFocus
End Sub