schwaches strComputer, strList
Schwaches wshShell
strComputer = „.“
DQ = Chr (34)
wshShell = CreateObject („Wscript.Shell“) einstellen
objWMIService = GetObject einstellen („winmgmts: “ _
u. „{impersonationLevel=impersonate}! \ \“ u. strComputer u. „\ Wurzel \ cimv2“)
colProcesses = objWMIService.ExecQuery _ einstellen
(„* von Win32_Process vorwählen in dem Name = „fusiondictate.exe“ ")
Wenn colProcesses.Count = 0 dann
wshShell.run DQ u. „C:\Program-Akten (x86) \ Schmelzverfahrens-Vorschrift 10 \ fusiondictate.exe“ u. DQ, zutreffend
Sonst
'Nichts tun
Beenden wenn
|