|
Her is the script with the "Do" and "set" commands removed and the "&" replaced with +. The script does not work and I get no errors, any advice?
$w2kwxp = @PRODUCTTYPE = "Windows 2000 Professional" OR @PRODUCTTYPE = "Windows XP Professional"
If $w2kwxp
Dim $WSHNetwork, $fso
$WSHNetwork = CreateObject("WScript.Network")
$fso = CreateObject("Scripting.FileSystemObject")
Dim $LogEntry
$UName = @USERID
$DName = @LDOMAIN
$CName = @WKSTA
Dim $Status
$Status = "NotLogged"
If $fso.FileExists("\\nserv\wkslogs$\" + $CName + ".txt") Then
Dim $SearchString
$SearchString = ($DName + "\" + $UName)
Dim $ParseFile, $TextStream, $TextLine
$ParseFile = $fso.GetFile("\\nserv\wkslogs$\" + $CName + ".txt")
$TextStream = $ParseFile.OpenAsTextStream
While Not $TextStream.AtEndOfStream
$TextLine = $TextStream.ReadLine
If InStr(1,$TextLine,$SearchString,1) <> 0 Then
Status = "AlreadyLogged"
End If
Loop
$TextStream.Close
End If
If $Status = "NotLogged" Then
Dim $Logfile
$Logfile = ("\\nserv\wkslogs$\" + $CName + ".txt")
Dim ologfile
$ologfile = fso.OpenTextFile($Logfile, 8, True)
$ologfile.writeline ($DName + "\" + $UName)
$ologfile.close
End If
End If
Sleep 7
Exit
| 
