07/06/2011 01:02:51	===============================================
07/06/2011 01:02:51	Starting on WS08-282 (48 in list)
07/06/2011 01:02:51	WS08-282 is reachable at IP 192.168.0.7
07/06/2011 01:03:07	===============================================
07/06/2011 01:03:07	Starting on WS08-287 (53 in list)
07/06/2011 01:03:07	WS08-287 is reachable at IP 192.168.0.7

On Error Resume Next
.
.
.
'Ready! WOOHOO!!!

07/06/2011 01:02:51	===============================================
07/06/2011 01:02:51	Starting on WS08-282 (48 in list)
07/06/2011 01:02:51	WS08-282 is reachable at IP 192.168.0.7
07/06/2011 01:03:07	===============================================
07/06/2011 01:03:07	Starting on WS08-287 (53 in list)
07/06/2011 01:03:07	WS08-287 is reachable at IP 192.168.0.7

On Error Resume Next

Set oWshNet = CreateObject("Wscript.Network") 

'Variables
strTimeDate = YEAR(Now) & Right("0" & Month(Now),2) & Right("0" & DAY(Now),2) & "-" & Right("0" & Hour(Now),2) & Right("0" & Minute(Now),2) & Right("0" & Second(Now),2)

infile = "computers.txt"

outFile = "Log_" & inFile & "-" & strTimeDate & ".txt"
Set objFSO = CreateObject("scripting.filesystemobject")

intCounter = 1

Const HKLM = &H80000002 
sProfileRegBase = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList" 


'We want to have a logfile. When ready, it will rot on the disk for all eternity.
Set outFile = objFSO.OpenTextFile(outFile, 2, True)
outFile.writeline (Now & vbTab & "Starting script...")

'Loop through all servers listed in the inFile
Set inFile = objFSO.OpenTextFile(inFile, 1, True) 'Open the list of serevers to work on

While Not inFile.AtEndOfStream
	'Do Stuff
	strServer = inFile.ReadLine

	outFile.WriteLine Now & vbtab & "===============================================" 'Let's have a nice looking logfile. At least try to.
	outFile.WriteLine Now & vbtab & "Starting on " & strServer & " (#" & intCounter & " in list)"

	'Check if server reachable
	Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("select * from Win32_PingStatus where address = '" & strServer & "'")
	For Each objStatus in objPing
		If IsNull(objStatus.StatusCode) or objStatus.StatusCode<>0 Then
			outFile.WriteLine Now & VBTab & "***Error*** " & strServer & " is not reachable at IP " & objStatus.ProtocolAddress
		Else
			outFile.WriteLine  Now & VBTab & strServer & " is reachable at IP "& objStatus.ProtocolAddress

			'Connect to server
			Set objWMIService = GetObject("winmgmts:\\" & strServer & "\root\cimv2")
			If Err <> 0 Then
				outFile.WriteLine Now & VBTab & strServer & "***Error*** System unreachable: GetObject failed"
				Err.Clear
			Else
			
				'*********************************************
				'*
				'*   Put the actions here
				'*
				'*   Writing to Log: outFile.WriteLine Now & VBTab & "Message to Write"
				'
				'*   Variables:
				'*   strServer = Current server, without slashes, just the s-loc-wi-000
				'*

				'Set oWMI = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strServer & "\root\cimv2")
				Set colOS = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
				For Each oOS in colOS
					sLastBoot = oOS.LastBootUpTime
					sSec = DateDiff("s",UTCtoStandard(sLastBoot), Now)
				Next
			        sMin = sSec\60
			        sSec = sSec Mod 60
			        sHour = sMin\60
			        sMin = sMin Mod 60
			        sDay = sHour\24 
				outFile.WriteLine Now & VBTab & "Uptime= (" & sDay & ")" & " Days, " & sHour Mod 24 & " Hours, " & sMin &" Minutes, " & sSec & " Seconds"


				'*********************************************

				outfile.WriteLine Now & vbtab & "Ready with " & strServer
			End If
		End If

		intCounter = intCounter + 1

	Next
	wscript.sleep 5000
Wend

'Aufräumen
outFile.WriteLine Now & vbtab & "==============================================="
outFile.writeline Now & vbTab & "Ending script..."
inFile.close
outFile.close

MsgBox "Script completed successfully."

WScript.Quit

'Ready! WOOHOO!!!