Ustalony objWMIService = GetObject ("winmgmts: " & "{impersonationLevel=impersonate}! \ \" & "." & "\ korzeń \ cimv2")
Ustalony objShell = CreateObject ("Wscript.Shell")
KillProcess (""processA.exe" ")
KillProcess (""processB.exe" ")
KillProcess (""processC.exe" ")
strMSI = "MSI2Execute.msi"
Na Błąd Życiorys Następnie
objShell.Run objShell.ExpandEnvironmentStrings ("%WINDIR%") &" \ System32 \ msiexec /I" &strMSI & " /qb-! ", (1), prawdziwy
Na Błąd Rozpoczynający (0)
Okręt podwodny KillProcess (strProcess)
Na Błąd Życiorys Następnie
Ustalony colProcess = objWMIService.ExecQuery ("Wybiórka * od Win32_Process Dokąd Imię =" & strProcess)
Dla Each objProcess w colProcess
objProcess.Terminate ()
Następnie
Na Błąd Rozpoczynający (0)
Końcówka Okręt podwodny
|