Sub CgiLog(strText)
Dim fs 'As Scripting.FileSystemObject
Dim ts 'As Scripting.TextStream
Const ForAppending = 8
	Set fs = CreateObject("Scripting.FileSystemObject")
	Set ts = fs.OpenTextFile(Left(Wscript.ScriptFullName, InstrRev(Wscript.ScriptFullName, ".")) & "log", ForAppending, True)
	ts.Write("<tr>" _
	& "<td>" & Now & "</td>" _
	& "<td>" & CreateObject("WScript.Shell").Environment("PROCESS").Item("REMOTE_ADDR") & "</td>" _
	& "<td>" & strText & "</td>" _
	& "</tr>" & vbCrLf)
	ts.Close
	Set ts = Nothing
	Set fs = Nothing
End Sub