|
The script posted below was a working vbscript that I am attempting to now run from kixtart. I am getting an error on first SET statement then the script quits. What change should I make to get it to work?
$w2kwxp = @PRODUCTTYPE = "Windows 2000 Professional" OR @PRODUCTTYPE = "Windows XP Professional"
If $w2kwxp
Dim $WSHNetwork, $fso
Set $WSHNetwork = CreateObject("WScript.Network")
Set $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
Set $ParseFile = $fso.GetFile("\\nserv\wkslogs$\" & $CName & ".txt")
Set $TextStream = $ParseFile.OpenAsTextStream
Do 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
Set $ologfile = fso.OpenTextFile($Logfile, 8, True)
$ologfile.writeline ($DName & "\" & $UName)
$ologfile.close
End If
End If
Sleep 7
Exit
| 
