need help to modify script that autochecks windows services.
Posted on 2006-11-30
I found this script on the web that checks my local pc for which automatic services are not running. What I would like to do is three things,
1. Output the results to a csv file
2. Check a list of servers from a txt file instead of my local pc and output
3. If possible, have a username and password box appear when someone needs to run the script. Although if this can't be done i can get around it by using a batch file to run the script.
' Displays a list of Windows services that are set to start Automatically,
' but are not currently running.
Dim strComputer, wbemServices, wbemObjectSet, wbemObject, strMessage
On Error Resume Next
Set wbemServices = GetObject("winmgmts:\\.")
Set wbemObjectSet = wbemServices.InstancesOf("Win32_Service")
For Each wbemObject In wbemObjectSet
if wbemObject.StartMode = "Auto" Then
if wbemObject.State <> "Running" Then
' Wscript.Echo """" & wbemObject.Name & """,""" & wbemObject.State & """,""" & wbemObject.DisplayName & """"
If strMessage<>"" Then strMessage=strMessage & ", "
strMessage=strMessage & wbemObject.DisplayName
If strMessage="" Then