5
Laufende Dienste mit VBS unter WINNT abfragen?
Wie kann man unter WinNT mit VBScript laufende Dienste abfragen? So was
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strserver &
Hallo alle zusammen,
ich habe folgende Frage
Wie kann man unter WinNT mit VBScript laufende Dienste abfragen? So was
geht leider nicht
ich habe folgende Frage
Wie kann man unter WinNT mit VBScript laufende Dienste abfragen? So was
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strserver & "\root\cimv2")
Set colProcesses = objWMIService.ExecQuery _
("Select * from Win32_Service ")
For Each objWMIService In colProcesses
WScript.Echo objWMIService.Name & " " & objWMIService.State
Next
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 2076
Url: https://administrator.de/contentid/2076
Printed on: April 20, 2024 at 11:04 o'clock
5 Comments
Latest comment
Hallo,
wo hast Du den Quell-Code her?
Ich habe ein ähnliches Script in einem Buch in meiner Bibliothek gefunden und es läuft ohne Probleme.
GPO
wo hast Du den Quell-Code her?
Ich habe ein ähnliches Script in einem Buch in meiner Bibliothek gefunden und es läuft ohne Probleme.
GPO
Wie wäre es mit der Freeware process viewer von sysinternals ?
Du hast Post.
GPO
GPO
Zufällig eine Idee für:
IT-Sicherheit - Eintrag vom 26.08.2004 DMZ................. etc????????
Wäre für jeden Tipp dankbar.
Gruss,
Stefan
IT-Sicherheit - Eintrag vom 26.08.2004 DMZ................. etc????????
Wäre für jeden Tipp dankbar.
Gruss,
Stefan
mach doch einfach mit CMD befehlen bzw mit command befhelen , so weit ich weiß kann der "NET" befehl Dienste verwalten !
set ws = CreateObject("WScript.Shell")
cmd("net <<<<HIER DEN BEFEHL REIN >>>> ")
'Ging glaub ich mit NET START / STOP / VIEW? <Computername>
'weiß aber nicht mehr genau !
'Usage : cmd("Text for DOSBOX")
SUB cmd (BYVAL xBefehl)
set ws = CreateObject("WScript.Shell")
xBefehl = "pause |" & myBefehl
xresultat = ws.run("%COMSPEC /c " & myBefehl,,true)
END SUB
'(c) by Markus Wypych
set ws = CreateObject("WScript.Shell")
cmd("net <<<<HIER DEN BEFEHL REIN >>>> ")
'Ging glaub ich mit NET START / STOP / VIEW? <Computername>
'weiß aber nicht mehr genau !
'Usage : cmd("Text for DOSBOX")
SUB cmd (BYVAL xBefehl)
set ws = CreateObject("WScript.Shell")
xBefehl = "pause |" & myBefehl
xresultat = ws.run("%COMSPEC /c " & myBefehl,,true)
END SUB
'(c) by Markus Wypych
