' ------------------------------------------------------------------------------- ' Template for vbscript ' Version: 0.1 ' Author: Michele ' Date: August 2009 ' ' Purpose: blah blah ' ' ------------------------------------------------------------------------------- ' Versions: ' 1.0 - 13 August 2009 - Final release ' 0.9 - 10 July 2009 - Fixed bug 123 ' ------------------------------------------------------------------------------- ' ------------------------------------------------------------------------------- ' Definitions ' ------------------------------------------------------------------------------- 'On Error Resume Next 'Option Explicit ' Constants Const LogToScreen = true Const LogToFile = true Const LogFile = "template.log" ' Global variables Dim objShell, oFSO, oLog ' Files and log management Set objShell = WScript.CreateObject ("WScript.Shell") Set oFSO = CreateObject("Scripting.FileSystemObject") Set oLog = oFSO.CreateTextFile(objShell.ExpandEnvironmentStrings(LogFile), true) ' ------------------------------------------------------------------------------- ' Start program ' ------------------------------------------------------------------------------- Call Main ' ------------------------------------------------------------------------------- ' End of program ' ------------------------------------------------------------------------------- ' ------------------------------------------------------------------------------- ' Subs and functions ' ------------------------------------------------------------------------------- ' Main program Sub Main Dim sCurLocale, ExitCode ' Switch to us format for datetime sCurLocale = GetLocale SetLocale("en-us") ' Start Log File log String(80, "-") log "Start of hardware provisioning script." log FormatDateTime(Now, vbLongDate) & " - " & FormatDateTime(Now, vbLongTime) log String(80, "-") ' Close Log File log String(80, "-") log "End of hardware provisioning script." log FormatDateTime(Now, vbLongDate) & " - " & FormatDateTime(Now, vbLongTime) log String(80, "-") SetLocale(sCurLocale) End Sub ' Function to log Function log(msg) If LogToScreen Then WScript.Echo msg End If If LogToFile Then oLog.WriteLine msg End If End Function