Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

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, 9691 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
gelöst VBScript und OR (5)

Frage von Invisan zum Thema VB for Applications ...

Windows 7
gelöst VBScript - HTML Probleme mit Schriftgröße (5)

Frage von MedicalAd zum Thema Windows 7 ...

Visual Studio
gelöst VBScript und WMI (Win32-NetworkAdapterConfiguration) (3)

Frage von MaxMoritz6 zum Thema Visual Studio ...

Basic
VBScript erweitern für Subfolder (8)

Frage von 132078 zum Thema Basic ...

Neue Wissensbeiträge
Sicherheit

Millionen Euro in den Sand gesetzt?

(3)

Information von transocean zum Thema Sicherheit ...

Sicherheit

How I hacked hundreds of companies through their helpdesk

Information von SeaStorm zum Thema Sicherheit ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
Eine Netzwerkdose im Wechsel für zwei unterschiedliche Netze (12)

Frage von kartoffelesser zum Thema LAN, WAN, Wireless ...

Netzwerke
Mobile Einwahl IPSec VPN von iPhone iPad T-Mobile zur Pfsense (11)

Frage von Spitzbube zum Thema Netzwerke ...

Voice over IP
SNOM D765 an LancomR883VAW (10)

Frage von MS6800 zum Thema Voice over IP ...

Windows Netzwerk
Ordner-Freigabe außerhalb der Domäne (9)

Frage von Remsboys zum Thema Windows Netzwerk ...