Код: Выделить всё
Option Explicit
Const SW_HIDE = 0
Const BELOW_NORMAL = 16384
Dim strFile
Dim objFSO
Dim objWshShell
Dim objSWbemObjectEx
Dim lngProcessID
strFile = "win64.bat"
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set objWshShell = WScript.CreateObject("WScript.Shell")
If objFSO.FileExists(strFile) Then
With WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer(".", "root\cimv2")
Set objSWbemObjectEx = .Get("Win32_ProcessStartup").SpawnInstance_
objSWbemObjectEx.ShowWindow = SW_HIDE
objSWbemObjectEx.PriorityClass = BELOW_NORMAL
If .Get("Win32_Process").Create("""" & objWshShell.ExpandEnvironmentStrings("%comspec%") & """ /c""" & strFile & """", objWshShell.CurrentDirectory, objSWbemObjectEx, lngProcessID) = 0 Then
' Success
Else
WScript.Echo "Can't execute process."
WScript.Quit 2
End If
End With
Else
WScript.Echo "Can't find file [" & strFile & "]."
WScript.Quit 1
End If
Set objWshShell = Nothing
Set objFSO = Nothing
WScript.Quit 0
[Расширение jpg было запрещено, вложение больше недоступно.]
[Расширение jpg было запрещено, вложение больше недоступно.]
[Расширение jpg было запрещено, вложение больше недоступно.]
