Listing 1: Code That Uses WMI to Generate a Date/Time Stamp

Dim WmiDt, referenceTime
Set WmiDt = CreateObject("WbemScripting.SWbemDateTime")
' BEGIN CALLOUT A
' referenceTime = Now()
referenceTime = DateSerial(2005, 8, 18) + TimeSerial(15, 56, 58)
' END CALLOUT A
' BEGIN CALLOUT B
WmiDt.SetVarDate referenceTime
Dim WmiDtString
WmiDtString = WmiDt.Value
WScript.Echo WmiDtString
' END CALLOUT B

' BEGIN CALLOUT C
Dim datestamp, timestamp
datestamp = Left(WmiDtString, 8)
timestamp = Mid(WmiDtString, 9, 6)
WScript.Echo "datestamp:", datestamp
WScript.Echo "timestamp:", timestamp
' END CALLOUT C