VBS "' If exist'' lukt niet HELP !!

[rrow]

Hallo iedereen,

Ik ben bezig met het omzetten van BAT script naar VBS.
Bij het VBS scriptje krijg ik de volgende foutmelding:
Script: D:\Test\Log-off.VBS
Regel: 27
Teken: 4
Fout: "If" wordt verwacht
Code: 800a03f4
Bron: Compilatiefout Microsoft VBScript

Zo ziet mijn VBS Script eruit:

Set oFSO = CreateObject("Scripting.FileSystemObject")
set WSHShell = wscript.createObject("wscript.shell")
set objNetwork = WScript.CreateObject("WScript.Network")
Set fso = CreateObject("Scripting.FileSystemObject")
strComputerName = wshShell.ExpandEnvironmentStrings( "%COMPUTERNAME%" )

CompName = WshShell.ExpandEnvironmentStrings("%COMPUTERNAME%") 
UserName = WshShell.ExpandEnvironmentStrings("%USERNAME%") 
LogServer = WshShell.ExpandEnvironmentStrings("%LOGONSERVER%") 

Dim fso, myFolderName, objFolder, myFileName, objFile, myFQFilename, objTextStream, fileContents
Set fso = CreateObject("Scripting.FileSystemObject")
Dim forReading, forWriting, forAppending 
forReading = 1 
forWriting = 2 
forAppending = 8
myFileName = (""& LogServer &"\NETLOGON\LimitLogin\Logs\"& UserName &".txt") 
Set objTextStream = fso.OpenTextFile(myFileName, forReading)
fileContents =   objTextStream.ReadAll

If objTextStream.ReadAll ("strComputerName") then
fso.DeleteFile (""& LogServer &"\NETLOGON\LimitLogin\Logs\"& UserName &".txt"), True

Else
WScript.quit

END

Dit is het BAT bestand dat ik probeer in VBS te converten:

@echo off
pushd %LOGONSERVER%\netlogon\LimitLogin\

For /F "Tokens=1" %%I in ('TYPE Z:\LimitLogin\logs\%USERNAME%.txt') Do Set COMPNAME=%%I

IF "%COMPNAME%" EQU "%COMPUTERNAME%" DEL "Z:\LimitLogin\logs\%USERNAME%.txt"

:END
popd

Alvast bedankt,

Rowan

 

[ZipPe]

Elke If in vbs moet worden afgesloten met een "End If".
Bij jouw script staat er enkel 'END' op regel 27..

Maak daar eens "End If" van