12 lines
424 B
Plaintext
12 lines
424 B
Plaintext
Option Explicit
|
|
|
|
Dim shell, fso, scriptDir, psScript, command
|
|
Set shell = CreateObject("WScript.Shell")
|
|
Set fso = CreateObject("Scripting.FileSystemObject")
|
|
|
|
scriptDir = fso.GetParentFolderName(WScript.ScriptFullName)
|
|
psScript = """" & fso.BuildPath(scriptDir, "screenjob_tray.ps1") & """"
|
|
|
|
command = "powershell.exe -NoProfile -ExecutionPolicy Bypass -WindowStyle Hidden -STA -File " & psScript
|
|
shell.Run command, 0, False
|