15
WMI - WSH Programmierung
Hi zusammen,
Ich bräuchte einen Tip, ich weiß das der unten aufgeführte Code nicht ganz richtig ist, aber ich wüsste auch nicht wie ich suchen soll.
Der erste Codeteil gibt mir den Status eines Services aus:
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colRunningServices = objWMIService.ExecQuery _
("Select * from Win32_Service where Name=´HTTPFilter´")
For Each objService in colRunningServices
Wscript.Echo objService.DisplayName & VbTab & objService.State
Next
Der folgende Codeteil sendet mir eine Email, und darin soll das Eregebnis aus dem ersten Code (also ob der Service läuft oder nicht) enthalten sein.
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Reboot of Server"
objMessage.From = "reboot-master@anbieter.com"
objMessage.To = "matthias.orczak@anbieter.com"
objMessage.HTMLBody = "<p>This is a automatic generated email for the NOC to inform them
</p><p>that the second Umero Server (10.0.217.117) has rebooted
</p><p><strong>successfully</strong>.</p>"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.anbieter.com"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Update
objMessage.Send
Ich bräuchte einen Tip, ich weiß das der unten aufgeführte Code nicht ganz richtig ist, aber ich wüsste auch nicht wie ich suchen soll.
Der erste Codeteil gibt mir den Status eines Services aus:
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colRunningServices = objWMIService.ExecQuery _
("Select * from Win32_Service where Name=´HTTPFilter´")
For Each objService in colRunningServices
Wscript.Echo objService.DisplayName & VbTab & objService.State
Next
Der folgende Codeteil sendet mir eine Email, und darin soll das Eregebnis aus dem ersten Code (also ob der Service läuft oder nicht) enthalten sein.
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Reboot of Server"
objMessage.From = "reboot-master@anbieter.com"
objMessage.To = "matthias.orczak@anbieter.com"
objMessage.HTMLBody = "<p>This is a automatic generated email for the NOC to inform them
</p><p>that the second Umero Server (10.0.217.117) has rebooted
</p><p><strong>successfully</strong>.</p>"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.anbieter.com"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Update
objMessage.Send
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: 45077
Url: https://administrator.de/forum/wmi-wsh-programmierung-45077.html
Ausgedruckt am: 19.04.2025 um 09:04 Uhr
15 Kommentare
Neuester Kommentar
Hallo RealFairPlayer und willkommen im Forum!
Der erste Programmteil gibt die Statusinformation (je nach Aufrufart) an der Konsole oder in einer Messagebox aus. Da Du aber die Statusinformation versenden willst, musst Du diese natürlich auch noch speichern, etwa
Wenn diese Zeile in der Schleife platziert wird (nach oder anstatt "WScript.Echo" und vor "Next"), hast Du am Ende des ersten Programmteiles die gesammelten Meldungen (wenn es denn mehrere sind) in sStatusMsg und kannst diese in den Body der Mail einbauen.
Willst Du auf einen Status besonders reagieren, dann verwende einen Schalter. Beispiel: Vor der Schleife
in der Schleife
und nach der Schleife kannst Du dann mit
eine entsprechende Aktion auslösen (zB nur in diesem Fall die Mail verschicken).
HTH
bastla
Der erste Programmteil gibt die Statusinformation (je nach Aufrufart) an der Konsole oder in einer Messagebox aus. Da Du aber die Statusinformation versenden willst, musst Du diese natürlich auch noch speichern, etwa
sStatusMsg = sStatusMsg & objService.DisplayName & VbTab & objService.State & vbCrLFWillst Du auf einen Status besonders reagieren, dann verwende einen Schalter. Beispiel: Vor der Schleife
bReboot = FalseIf objService.DisplayName = "WasAuchImmer" Then If objService.State = "RebootOderSo" Then bReboot = True If bReboot Then ...HTH
bastla
Hi!
Merci für die Schnelle Hilfe. Genau das war die Frage (Punkt 1)
Jedoch ist mir nicht klar was sStatusMsg nun ist (eine Variable?) Wenn dem so ist, wie kann ich sie im Body der Mail einbauen?
Danke im voraus,
Matthias
EDIT:
Ich ziehe die Frage zurück, habe es selbst rausgefunden. Nun noch eine Frage, könnte man die Abfrage der Services abändern in a la alles was mit service beginnt anzeigen?
Merci für die Schnelle Hilfe. Genau das war die Frage (Punkt 1)
Jedoch ist mir nicht klar was sStatusMsg nun ist (eine Variable?) Wenn dem so ist, wie kann ich sie im Body der Mail einbauen?
Danke im voraus,
Matthias
EDIT:
Ich ziehe die Frage zurück, habe es selbst rausgefunden. Nun noch eine Frage, könnte man die Abfrage der Services abändern in a la alles was mit service beginnt anzeigen?
Hallo RealFairPlayer!
Grüße
bastla
Jedoch ist mir nicht klar was sStatusMsg nun ist (eine Variable?)
Genau.Wenn dem so ist, wie kann ich sie im Body der Mail einbauen?
Ohne HTML-Formatierungen zu berücksichtigen, einfachobjMessage.HTMLBody = "Der Check erbrachte folgendes Ergebnis:" & vbCrLF & sStatusMsg & vbCrLF & "Viel Spaß damit." Grüße
bastla
Merci Bastla für die schnelle Antwort 
Hier noch das letzte was mir fehlt
Nun noch eine Frage, könnte man die Abfrage der Services abändern in a la alles was mit service beginnt anzeigen?
Hier noch das letzte was mir fehlt
Nun noch eine Frage, könnte man die Abfrage der Services abändern in a la alles was mit service beginnt anzeigen?
Hallo RealFairPlayer!
Wenn Du das wirklich willst ...
Dazu die "where"-Klausel weglassen
Grüße
bastla
Wenn Du das wirklich willst ...
Dazu die "where"-Klausel weglassen
Set colRunningServices = objWMIService.ExecQuery("Select * from Win32_Service") Grüße
bastla
Hmmm.... ich habe mich schlecht ausgedrückt.
Wenn ich mir alle Dateien mit dem Anfang aha unter Dos anzeigen lassen will gebe ich ja ein
dir aha*
Und sowas bräuchte ich für diese WHERE Abfrage .... nur hier geht Sternchen nicht, daher meine Frage ob die überhaupt geht und wenn ja, wie
Wenn ich mir alle Dateien mit dem Anfang aha unter Dos anzeigen lassen will gebe ich ja ein
dir aha*
Und sowas bräuchte ich für diese WHERE Abfrage .... nur hier geht Sternchen nicht, daher meine Frage ob die überhaupt geht und wenn ja, wie
@bastla
...ich glaube, er meint:
und nicht alle Services.
Gruß
biber
...ich glaube, er meint:
...("Select * from Win32_Service where Left(DisplayName,7)= 'Service'") Gruß
biber
Hallo RealFairPlayer!
Also etwa
siehe auch http://www.microsoft.com/technet/scriptcenter/topics/win2003/like.mspx
Grüße
bastla
@Biber
Manchmal dauert's lang, dann wieder länger ...
Gibst Du mir schnell Nachhilfe: Müsste ich die Bedingung case-sensitiv formulieren?
Also etwa
Set colRunningServices = objWMIService.ExecQuery
("Select * from Win32_Service where Name Like 'service%'") Grüße
bastla
@Biber
Manchmal dauert's lang, dann wieder länger ...
Gibst Du mir schnell Nachhilfe: Müsste ich die Bedingung case-sensitiv formulieren?
Hoi!
Merci erst mal für all eure Mühen, ehrlich! Nun tut alles was es soll
Nun habe ich alle Services und sie werden auch ausgegeben, könnte man evtl. nach jedem Status (also running or stop) noch einen Zeilenumbruch einfügen oder wäre des zuviel des guten? *neugierigschau*
EDIT:
Manchmal sollte ich einfach erst denken und dann schreiben Merci - erledigt.
Merci erst mal für all eure Mühen, ehrlich! Nun tut alles was es soll
Nun habe ich alle Services und sie werden auch ausgegeben, könnte man evtl. nach jedem Status (also running or stop) noch einen Zeilenumbruch einfügen oder wäre des zuviel des guten? *neugierigschau*
EDIT:
Manchmal sollte ich einfach erst denken und dann schreiben
Merci - erledigt.
Hallo RealFairPlayer!
Textzeilenumbruch hatte ich ohnehin (vbCrLF), ansonsten:
Grüße
bastla
Textzeilenumbruch hatte ich ohnehin (vbCrLF), ansonsten:
sStatusMsg = sStatusMsg & "<p>" & objService.DisplayName & VbTab & objService.State & "</p>" & vbCrLF bastla
Einen hab ich noch
Wieso klappt das so nicht?
("Select * from Win32_Service where Name Like 'Um%' AND where state Like 'running'")
Matze
Wieso klappt das so nicht?
("Select * from Win32_Service where Name Like 'Um%' AND where state Like 'running'")
Matze
Hallo RealFairPlayer!
So vielleicht?
("Select * from Win32_Service where Name Like 'Um%' ANDwhere state Like 'running'")
Grüße
bastla
[Edit] Obwohl: Bei "State" kannst Du auch auf Gleichheit überprüfen, die Ähnlichkeitssuche ("Like") benötigst Du nicht - außerdem sehe ich ohnehin kein Jokerzeichen ("%"). [/Edit]
So vielleicht?
("Select * from Win32_Service where Name Like 'Um%' AND
Grüße
bastla
[Edit] Obwohl: Bei "State" kannst Du auch auf Gleichheit überprüfen, die Ähnlichkeitssuche ("Like") benötigst Du nicht - außerdem sehe ich ohnehin kein Jokerzeichen ("%"). [/Edit]
Vielleicht bastla, vielleicht ... wer weiß .. wer weiß
MERCI und vielen lieben Dank an euch beide für die schnelle und geniale Hilfe. Hier fühl ich mich wohl ... hier wird geholfen
Euch noch nen schönen Tag
Matthias
MERCI und vielen lieben Dank an euch beide für die schnelle und geniale Hilfe. Hier fühl ich mich wohl ... hier wird geholfen
Euch noch nen schönen Tag
Matthias
Hier fühl ich mich wohl ...
So soll's sein ... Dir auch einen schönen Tag
bastla
@bastla
Diese Ausgabe hier..
... kam bei der Abfrage "Select * from Win32_Service where Name Like '%service%' "
Ebenfalls schönen Abend
Biber
P.S. @RealFairPlayer:
Du kannst (eigene) Beiträge auf "Gelöst" setzen, also diesen schönen grünen Haken anzeigen lassen, wenn Du auf der Frage selbst "Editieren" drückst.
Dann siehst Du im Menü ein Kontrollkästchen "Dieser Beitrag gilt als gelöst".
Manchmal dauert's lang, dann wieder länger ...
Kann ich nur bestätigen... Müsste ich die Bedingung case-sensitiv formulieren?
Nein.Diese Ausgabe hier..
>cscript //nologo f:\showservices.vbs
ImapiService IMAPI-CD-Brenn-COM-Dienste Stopped
srservice Systemwiederherstellungsdienst Stopped
TermService Terminaldienste RunningEbenfalls schönen Abend
Biber
P.S. @RealFairPlayer:
Du kannst (eigene) Beiträge auf "Gelöst" setzen, also diesen schönen grünen Haken anzeigen lassen, wenn Du auf der Frage selbst "Editieren" drückst.
Dann siehst Du im Menü ein Kontrollkästchen "Dieser Beitrag gilt als gelöst".
