Schemerige strComputer, strList
Schemerige wshShell
strComputer = „.“
DQ = Chr (34)
Reeks wshShell = CreateObject („Wscript.Shell“)
Vastgestelde objWMIService = GetObject („winmgmts: “ _
& „{impersonationLevel=impersonate}! \ \“ & strComputer & „\ wortel \ cimv2“)
Reeks colProcesses = objWMIService.ExecQuery _
(„Selecteer * uit Win32_Process waar Naam = „fusiondictate.exe““)
Als colProcesses.Count = 0 toen
wshShell.run DQ & „de Fusie \ C:\Program van Dossiers (x86) dicteren 10 \ fusiondictate.exe“ & Ware DQ,
Anders
'Doe niets
Beëindig als
|