Vastgestelde objWMIService = GetObject („winmgmts: “ & „{impersonationLevel=impersonate}! \ \“ & „.“ & „\ wortel \ cimv2“)
Reeks objShell = CreateObject („Wscript.Shell“)
KillProcess („„processA.exe““)
KillProcess („„processB.exe““)
KillProcess („„processC.exe““)
strMSI = „MSI2Execute.msi“
Op Fout hervat daarna
objShell.Run objShell.ExpandEnvironmentStrings („%WINDIR%“) &“ \ System32 \ msiexec /I“ &strMSI & " /qb-! „, ware 1,
Op Fout Goto 0
Sub KillProcess (strProcess)
Op Fout hervat daarna
Plaats colProcess = objWMIService.ExecQuery („selecteer * uit Win32_Process waar Naam =“ & strProcess)
Voor Elke objProcess in colProcess
objProcess.Terminate ()
Daarna
Op Fout Goto 0
Sub van het eind
|