AddExtender("wwipg34i.dll")
AddExtender("wwsop34i.DLL")
Addextender("WWWNT34I.DLL")

;~~~~~~~~PUT YOUR LIST OF COMPUTERS HERE~~~~~~~~~~~~~~
ListOfSystems="c:\ListOfSystems.txt"
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

;~~~~~~~~PUT LOCATION OF YOUR LOG FILE HERE~~~~~~~~~~~~~~
OutPutFile="c:\search.txt"
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

num=0
ListNum=0
astatusbar(0,"PingSys","Looking for live systems.%@CRLF% Number of Systems to search= %ListNum%",ListNum,num)
ListOfSystems=Fileopen(ListOfSystems,"read")
OutPutFile=Fileopen(OutPutFile,"append")
d=datetime()
errormode(@OFF)
while @true
	system=Fileread(ListOfSystems)
	if system=="*EOF*" then break
	system0=strcat(system,".yourDomain.com")
	png=ipping( system0,3)
		if png==@true
			Filewrite(OutPutFile,"%system% can be pinged");CHANGE THIS TO WHAT YOU WANT WRITTEN IN YOUR LOG FILE			
			
			;~~~~~~~~PLACE ACTIONS TO BE PERFORMED HERE~~~~~~~~~~~~~~
			function=wntSvcStatus(system, "W3SVC", 1000 , 0)
			;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
			system1=strcat("\\",system)
			if function==@TRUE 
				Filewrite(OutPutFile,"%system% Service Found") ;CHANGE THIS TO WHAT YOU WANT WRITTEN IN YOUR LOG FILE if the service is found
			else
				Filewrite(OutPutFile,"%system% Service Not Found") ;CHANGE THIS TO WHAT YOU WANT WRITTEN IN YOUR LOG FILE if the service is not found
			endif
			
			if function==@TRUE 
				
				function1=wntSvcStatus(system1, "W3SVC", 1000 , 2)
				switch function1	
					case 1
						Filewrite(OutPutFile,"%system% SERVICE_STOPPED")
						break
					case 2	
						Filewrite(OutPutFile,"%system% SERVICE_START_PENDING")
						break
					case 3
						Filewrite(OutPutFile,"%system% SERVICE_STOP_PENDING")
						break
					case 4
						Filewrite(OutPutFile,"%system% SERVICE_RUNNING")
						break
					case 5
						Filewrite(OutPutFile,"%system% SERVICE_CONTINUE_PENDING")
						break
					case 6
						Filewrite(OutPutFile,"%system% SERVICE_PAUSE_PENDING")
						break
					case 7
						Filewrite(OutPutFile,"%system% SERVICE_PAUSED")
						break
				 endswitch
			 endif
		endif
		num=num+1
		remains=listnum-num
	astatusbar(1,"PingSys","Checking -> %system%  %@CRLF%Systems remaining= %remains%",ListNum,num)
endwhile
astatusbar(2,"","","",0)
fileclose(ListOfSystems)
exit