LISTING 1: Uptime.wsf

<?xml version="1.0" encoding="ISO-8859-1" ?>
<job>
<script language="VBScript"><![CDATA[
Option Explicit
BEGIN COMMENT
' This code declares cin, cout, and cerr for console stdin, stdout, and stderr, respectively.
' To work, this code must be running with CScript as the explicit host.
END COMMENT
dim cin: set cin = WScript.StdIn
dim cout: set cout = WScript.StdOut
dim cerr: set cerr = WScript.StdErr
dim nargs: set nargs = WScript.Arguments.Named
dim uargs: set uargs = WScript.Arguments.UnNamed
dim arg, WMITIME, INTERVAL, BARE

ProcessArguments() 
BEGIN COMMENT
' This code reads argument collections and sets up the environment.
END COMMENT

on error resume next
dim WmiDtm: Set WmiDtm = CreateObject("WbemScripting.SWbemDateTime")

if err.number <> 0 then
BEGIN COMMENT
	' You can run this script only on XP or later systems, but the script can check remote pre-XP systems that have Windows Management Instrumentation (WMI) installed.
END COMMENT
	WScript.Arguments.ShowUsage
	WScript.Quit 2
end if
on error goto 0

for each arg in uargs
	Main arg
next
If nargs.exists("") then
	Do While Not (cin.AtEndofStream)
		Main cin.ReadLine
	Loop
ElseIf uargs.Count = 0 Then
BEGIN COMMENT
	' No unnamed arguments were detected, and you're not reading from stdin.
END COMMENT
	Main "."
End if

sub Main(byval computer)
BEGIN COMMENT
	' This code is the main processing loop for each system checked.
END COMMENT
	computer = trim(computer)
BEGIN COMMENT
	' The next statement skips processing the system if no computer name is found.
END COMMENT
	if len(computer) = 0 then exit sub
BEGIN COMMENT
	' This code uses WMI to obtain the uptime, catch errors, and display the names of systems 
on which errors were found.
END COMMENT
	on error resume next
	dim tmpDate: tmpDate = LastBootUpTime(computer)
	if err.number <> 0 then
BEGIN COMMENT
		' The script could not obtain information from the system. 
END COMMENT
		cerr.WriteLine "could not retrieve uptime data from " & computer
		exit sub
	end if
	on error goto 0
BEGIN COMMENT
	' This code reformats WMI time strings into VBScript dates to show uptime if you aren't using 
the WMI string.
END COMMENT
	if not WMITIME then
		WmiDtm.Value = tmpDate
		tmpDate = DateDiff(INTERVAL, WmiDtm.GetVarDate, Now)
	end if
	if not BARE then cout.Write computer & " "
	cout.Write tmpDate
	if not BARE then cout.Write " " & INTERVAL
	cout.WriteLine
end sub

Function LastBootUpTime(computer)
BEGIN COMMENT
	' This code uses WMI to return the last boot time from a local or remote PC.
END COMMENT
	dim WMIService, OperatingSystems, OS
	Set WMIService = GetObject("winmgmts://" & computer & "/root/cimv2")
	Set OperatingSystems = WMIService.ExecQuery _
		("Select LastBootUpTime from Win32_OperatingSystem")
	For Each OS in OperatingSystems
		LastBootUpTime = OS.LastBootUpTime
		Exit Function
	Next
End Function

Sub ProcessArguments()
BEGIN COMMENT
	' This routine parses the arguments you supplied on the command line.
END COMMENT
	Dim Named: set Named = WScript.Arguments.Named
	if Named.Exists("T") then WMITIME = true else WMITIME = false
	if Named.Exists("B") then BARE = true else BARE = false
	If Named.Exists("I") then
		Select case lcase(Named("I"))
			case "q", "m", "d", "h", "n", "s"
				INTERVAL = lcase(Named("I"))
			case "y" INTERVAL = "yyyy"
			case else
				cerr.WriteLine "bad argument " & Named("I") _
					& " specified for name /I."
				WScript.Arguments.ShowUsage
				WScript.Quit(2)
		end select
	Else
		INTERVAL = "s"
	end if
end sub
]]></script>
</job>