;Script to read list of systems and go to each one and make sure anti-virus was started.


Addextender("WWWNT32I.DLL")
H="C:\SMSID\SMS.txt"
old = FileOpen(H, "READ")
ErrorMode(@off)
BoxOpen("Counting","Reading list of users")
x = FileRead(old)
while old != "*EOF*"
		BoxText(x)
		svc=wntSvcStatus(x,"cheyenne inoculan anti-virus server", 0,2)
		If svc== 1 then
	 		ok=wntSvcStart(x,"cheyenne inoculan anti-virus server",0,"","")
		EndIf 
		If ok==@True then GoSub START
		If ok==@False then GoSub NG
		If x == "*EOF*" Then Break
		x = FileRead(old)
endwhile
		FileClose(old)


:NG
handle = FileOpen("c:\SMSID\InoculanSvc.txt", "APPEND")
FileWrite(handle, "%x%	Service NOT started")
FileClose(handle)
return

:START
TKO = FileOpen("c:\SMSID\InoculanSvc.txt", "APPEND")
FileWrite(TKO, "%x%	Service started")
FileClose(TKO)
return