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
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
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
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 2076
Url: https://administrator.de/forum/laufende-dienste-mit-vbs-unter-winnt-abfragen-2076.html
Ausgedruckt am: 11.04.2025 um 23:04 Uhr
5 Kommentare
Neuester Kommentar
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
