Brauche kleine Hilfestellung bei VBS Script
Hallo liebe Community,
bin FISI Azubi und wir müssen eine kleine Verwaltungssoftware schreiben, die unter anderem eine kleine Diensteverwaltung beherbergt.
Beim Script, welches mir ausgeben soll, welche Dienste gerade gestartet sind, bekomme ich als Ausgabe eine Liste, die allerdings ohne Scrollbar nicht einsehbar ist, da sie über den Bildschirmrand hinausragt, da die Liste einfach zu lang ist ...
Hier der Code:
Dim objWMIService, objService, colListOfServices, Computer
Computer = "."
Set objWMIService = GetObject("winmgmts:" &_
"{impersonationLevel=impersonate}!\\" & Computer &_
"\root\cimv2")
Set colListOfServices = objWMIService.ExecQuery _
("SELECT * FROM Win32_Service WHERE State=""Running""")
For Each objService in colListOfServices
Ausgabe = Ausgabe & vbcrlf & objService.Status & vbTab & objService.DisplayName
Next
WScript.Echo Ausgabe
Gibt eine Möglichkeit die Ausgabe schöner zu gestalten?
Danke, Leon
bin FISI Azubi und wir müssen eine kleine Verwaltungssoftware schreiben, die unter anderem eine kleine Diensteverwaltung beherbergt.
Beim Script, welches mir ausgeben soll, welche Dienste gerade gestartet sind, bekomme ich als Ausgabe eine Liste, die allerdings ohne Scrollbar nicht einsehbar ist, da sie über den Bildschirmrand hinausragt, da die Liste einfach zu lang ist ...
Hier der Code:
Dim objWMIService, objService, colListOfServices, Computer
Computer = "."
Set objWMIService = GetObject("winmgmts:" &_
"{impersonationLevel=impersonate}!\\" & Computer &_
"\root\cimv2")
Set colListOfServices = objWMIService.ExecQuery _
("SELECT * FROM Win32_Service WHERE State=""Running""")
For Each objService in colListOfServices
Ausgabe = Ausgabe & vbcrlf & objService.Status & vbTab & objService.DisplayName
Next
WScript.Echo Ausgabe
Gibt eine Möglichkeit die Ausgabe schöner zu gestalten?
Danke, Leon
Please also mark the comments that contributed to the solution of the article
Content-Key: 220429
Url: https://administrator.de/contentid/220429
Printed on: April 25, 2024 at 20:04 o'clock
4 Comments
Latest comment
Hallo Bimmer1993 und willkommen im Forum!
Wozu soll diese Liste denn dienen?
"Schöner" wird's so zwar nicht, aber um alle Ausgaben lesen zu können, brauchst Du eigentlich nur Dein Script über "
... ansonsten wäre Dein Stichwort "HTA".
Grüße
bastla
Wozu soll diese Liste denn dienen?
"Schöner" wird's so zwar nicht, aber um alle Ausgaben lesen zu können, brauchst Du eigentlich nur Dein Script über "
cscript
" zu starten. Du könntest die Ausgabe auch in eine Text- bzw CSV-Datei schreiben und mit dem Editor / mit Excel öffnen ...... ansonsten wäre Dein Stichwort "HTA".
Grüße
bastla