Goedendag,
ik heb een programma geschreven ter vervanging van een meegeleverd programma bij mijn MP3-speler.
De software bij die MP3-speler was niet goed genoeg naar mijn mening en de missende onderdelen heb ik zelf geprogrammeerd.
In het programma maak ik veel gebruik van de WMI service. Daarom heb ik aan het begin van het programma een checksum ingebouwd die controleerd of de WMI service wel draait. Doet hij dit niet, dan sluit het programma af met de mededeling dat eerst de WMI service aangezet moet worden.
Ik heb het programma geprogrammeerd onder Windows 2000 Prof. Ik heb gechecked of er uberhaupt een WMI service was, en dit bleek wel zo te zijn.
Daarna heb ik het programma laten draaien op een Windows XP Home PC, en het programma gaf aan dat de WMI service niet draaide. Dit heb ik uiteraard gecontrolleerd maar de service is er wel degelijk!
Mijn vraag is nu: welke service(s) gebruiken de WMI codes?
Een voorbeeld van een code:
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colRunningServices = objWMIService.ExecQuery _
("Select * from Win32_Service")
For Each objService in colRunningServices
Wscript.Echo objService.DisplayName & VbTab & objService.State
Next
De bovenstaande code controleert of van elke service de status.
Alvast bedankt voor jullie hulp!
Mvg,
Dave.
ik heb een programma geschreven ter vervanging van een meegeleverd programma bij mijn MP3-speler.
De software bij die MP3-speler was niet goed genoeg naar mijn mening en de missende onderdelen heb ik zelf geprogrammeerd.
In het programma maak ik veel gebruik van de WMI service. Daarom heb ik aan het begin van het programma een checksum ingebouwd die controleerd of de WMI service wel draait. Doet hij dit niet, dan sluit het programma af met de mededeling dat eerst de WMI service aangezet moet worden.
Ik heb het programma geprogrammeerd onder Windows 2000 Prof. Ik heb gechecked of er uberhaupt een WMI service was, en dit bleek wel zo te zijn.
Daarna heb ik het programma laten draaien op een Windows XP Home PC, en het programma gaf aan dat de WMI service niet draaide. Dit heb ik uiteraard gecontrolleerd maar de service is er wel degelijk!
Mijn vraag is nu: welke service(s) gebruiken de WMI codes?
Een voorbeeld van een code:
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colRunningServices = objWMIService.ExecQuery _
("Select * from Win32_Service")
For Each objService in colRunningServices
Wscript.Echo objService.DisplayName & VbTab & objService.State
Next
De bovenstaande code controleert of van elke service de status.
Alvast bedankt voor jullie hulp!
Mvg,
Dave.