Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Dienststatus per VBScript

Frage Entwicklung

Mitglied: RetroDude

RetroDude (Level 1) - Jetzt verbinden

06.10.2008, aktualisiert 18.10.2012, 9772 Aufrufe, 5 Kommentare

Hallo

Auf unseren Servern hat es Applikationen, welche nach einem Neustart nicht immmer sauber hochfahren. Besser gesagt deren Dienste starten nicht bzw. wir müssen diese dann von Hand anschubsen. Ich suche deshalb eine Lösung dies per Startskript abzufangen. Wie überprüfe ich per VBScript den Status eines Dienstes um diesen dann bei Bedarf zu starten?
Vielen Dank im Voraus.

Gruss
Mitglied: bastla
06.10.2008 um 09:50 Uhr
Hallo RetroDude!

Am Beispiel des "Browser"-Dienstes:
01.
strComputer = "." 
02.
strSvc = "Browser" 
03.
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")  
04.
Set colItems = objWMIService.ExecQuery( _ 
05.
    "SELECT * FROM Win32_Service WHERE Name='" & strSvc & "'")  
06.
For Each objItem in colItems  
07.
    WScript.Echo objItem.Name & ": " & objItem.State 
08.
Next
Grüße
bastla
Bitte warten ..
Mitglied: RetroDude
06.10.2008 um 10:17 Uhr
Danke Bastla!

Kannst Du mir noch zeigen wie ich den Dienststart einbauen kann falls der Dienst nicht gestartet ist?

Gruss
Bitte warten ..
Mitglied: bastla
06.10.2008 um 10:45 Uhr
Hallo RetroDude!

Etwa so:
01.
strComputer = "."  
02.
strSvc = "Browser" 
03.
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")  
04.
Set objShare = objWMIService.Get("Win32_Service.Name='" & strSvc & "'") 
05.
Set objOutParams = objWMIService.ExecMethod("Win32_Service.Name='" & strSvc &"'", "StartService") 
06.
WScript.Echo "ReturnValue: " & objOutParams.ReturnValue
Grüße
bastla
Bitte warten ..
Mitglied: RetroDude
06.10.2008 um 11:15 Uhr
Danke Bastla!
Noch eine letzte Frage: Kann ich auch auf bestimmte Ereignisse eine Mail auslösen ? z.B. Der Dienst wurde gestartet? So könnte ich relativ einfach protokollieren wie oft der Dienst nicht läuft.

Gruss
Bitte warten ..
Mitglied: bastla
08.10.2008, aktualisiert 18.10.2012
Hallo RetroDude!

Entweder wie hier beschrieben, oder zB unter Verwendung von blat (siehe auch hier - die Variablenzuweisungen kannst Du auch per VBS machen und nur den eigentlichen Aufruf dann als Shell.Run) ...

Grüße
bastla
Bitte warten ..
Ähnliche Inhalte
VB for Applications
VBScript und OR
Beitrag von 5 Kommentare

Frage von Invisan zum Thema VB for Applications

Microsoft Office
Outlook VBScript
Beitrag von 5 Kommentare

Frage von Nebellicht zum Thema Microsoft Office

Windows 7
VBScript - HTML Probleme mit Schriftgröße
Beitrag von 5 Kommentare

Frage von MedicalAd zum Thema Windows 7

Visual Studio
VBScript und WMI (Win32-NetworkAdapterConfiguration)
Beitrag von 3 Kommentare

Frage von MaxMoritz6 zum Thema Visual Studio

Neue Wissensbeiträge
MikroTik RouterOS

Mikrotik - Lets Encrypt Zertifikate mit MetaROUTER Instanz auf dem Router erzeugen

Beitrag von 4 Kommentare

Anleitung von colinardo zum Thema MikroTik RouterOS

Sicherheit

Sicherheitslücke in HP-Druckern - Firmware-Updates stehen bereit

Beitrag von

Information von BassFishFox zum Thema Sicherheit

Administrator.de Feedback

Entwicklertagebuch: Die Startseite wurde überarbeitet

Beitrag von 5 Kommentare

Information von admtech zum Thema Administrator.de Feedback

Vmware

VMware Desktopprodukte sind verwundbar

Beitrag von

Information von Penny.Cilin zum Thema Vmware

Heiß diskutierte Inhalte
Visual Studio
Vb.net-Tool zum Erzeugen einer Outlook-E-Mail
Beitrag von 24 Kommentare

Frage von ahstax zum Thema Visual Studio

Windows Server
RDP macht Server schneller???
Beitrag von 16 Kommentare

Frage von JaniDJ zum Thema Windows Server

Windows Netzwerk
Netzwerk Neustrukturierung
Beitrag von 16 Kommentare

Frage von IT-Dreamer zum Thema Windows Netzwerk

Windows 10
Windows 10 dunkler Bildschirm nach Umfallen
Beitrag von 15 Kommentare

Frage von Akcent zum Thema Windows 10