mrmoneymatters
MIS
The below script will scan the local pc and look at all services and the account they run as. I need to make a couple of changes. I need to point this at a subnet and scan all servers. I also need the results output to a file. Can someone help me with this. I am not good with scripting.
strComputer = "domain.fma.com"
Set objWMIService = GetObject _
("winmgmts:\\" & strComputer & "\root\cimv2")
Set colServices = objWMIService.ExecQuery _
("Select * From Win32_Service")
For Each objService in colServices
Wscript.Echo objService.Name, objService.StartName
Next
Network Admin
A+, Network+, MCSA 2000, MCSE 2000
MCSA (2003)
strComputer = "domain.fma.com"
Set objWMIService = GetObject _
("winmgmts:\\" & strComputer & "\root\cimv2")
Set colServices = objWMIService.ExecQuery _
("Select * From Win32_Service")
For Each objService in colServices
Wscript.Echo objService.Name, objService.StartName
Next
Network Admin
A+, Network+, MCSA 2000, MCSE 2000
MCSA (2003)