oops. left off the last next:
for each strComputer in Array("piglet","porker","hawg")
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colListOfServices = objWMIService.ExecQuery _
("Select * from Win32_Service Where Name = 'ntprime'")
For Each objService in colListOfServices
objService.StartService()
next
next
_______________________________________________
Prime mailing list
[email protected]
http://hogranch.com/mailman/listinfo/prime
