Fastställd objWMIService = GetObject (”winmgmts: ” & ”{impersonationLevel=impersonate}! \ \” & ”.”, & ”\ rotar \ cimv2”)
Fastställd objShell = CreateObject (”Wscript.Shell”)
KillProcess (””processA.exe””)
KillProcess (””processB.exe””)
KillProcess (””processC.exe””)
strMSI = ”MSI2Execute.msi”,
På felmeritförteckning därefter
objShell.Run objShell.ExpandEnvironmentStrings (”%WINDIR%”) &” \ System32 \ msiexec /I” &strMSI & " /qb-! ”1 som är riktig
På fel Goto 0
UnderKillProcess (strProcess)
På felmeritförteckning därefter
Fastställda colProcess = objWMIService.ExecQuery (”välj * från Win32_Process var känt =” & strProcess)
För varje objProcess i colProcess
objProcess.Terminate ()
Därefter
På fel Goto 0
Avsluta suben
|