Ciemnawy strComputer, strList
Ciemnawy wshShell
strComputer = "."
DQ = Chr (34)
Ustalony wshShell = CreateObject ("Wscript.Shell")
Ustalony objWMIService = GetObject ("winmgmts: " _
& "{impersonationLevel=impersonate}! \ \" & strComputer & "\ korzeń \ cimv2")
Ustalony colProcesses = objWMIService.ExecQuery _
("Wybiórka * od Win32_Process Dokąd Imię = "fusiondictate.exe" ")
Jeżeli colProcesses.Count = (0) Wtedy
wshShell.run DQ & "C:\Program Kartoteka (x86) \ Fuzja Dyktat 10 \ fusiondictate.exe" & DQ, Prawdziwy
Inny
'Robić Nic
Kończyć Jeżeli
|