A code/script template

June 3, 2010

‘—————— Script Remarx ——————-

‘ Script : [script name].vbs
‘ Author : [author name]
‘ Created : MM.DD.YYYY
‘ Description :

‘——————- Code Header ——————–


‘——————- Code Footer ——————–

Function Host()

Dim WSHShell
Dim objNTInfo

Set objNTInfo = CreateObject(“WinNTSystemInfo”)
Host = ucase(objNTInfo.ComputerName)

End Function

Sub Email

Set objEmail = CreateObject(“CDO.Message”)
objEmail.From = “”
objEmail.To = “”
objEmail.Subject = “”
objEmail.Textbody = “”
objEmail.Configuration.Fields.Item _
(“http://schemas.microsoft.com/cdo/configuration/sendusing”) = 2
objEmail.Configuration.Fields.Item _
(“http://schemas.microsoft.com/cdo/configuration/smtpserver”) = _
“[mail server address goes here]”
objEmail.Configuration.Fields.Item _
(“http://schemas.microsoft.com/cdo/configuration/smtpserverport”) = 25
objEmail.Configuration.Fields.Update
objEmail.Send

End Sub