Convert au3 to VBS

[Rokkitt]

Hi,

I need to convert the following Autoit script into VB, being a VBScript dummy can someone give me some tips/tricks on how to go about doing this.

Dim $RptfileName

Dim $Rptfile

Dim $RptLine

Dim $Servername

if Number($CmdLine[0]) <> 1 Then

ConsoleWrite ("-1") ; Return Test failed

Exit

EndIf

$Servername = $CmdLine[1]

$Servername = StringReplace($Servername,".epwh.ad","") ;does not work with a FQDN; So we remove epwh.ad

$RptfileName = "C:\Batch\citrix\Logon\" & $Servername & ".txt"

FileDelete($RptfileName)

RunWait(@ComSpec & " /c " & '"psexec.exe \\xenapp-FARM -u EPWH\Scheduled -p UB55Hi4C -c C:\batch\citrix\tslogins.exe /query /Server:' & $Servername & ' >>' & $RptfileName & '"', "")

$Rptfile = FileOpen($RptfileName, 0)

; Check if file opened for reading OK

If $Rptfile = -1 Then

ConsoleWrite ("-2")

Exit

EndIf

$RptLine = FileReadLine($Rptfile,2)

If StringInStr($RptLine,"ENABLED") Then

ConsoleWrite ("0") ; Return All good

Else

ConsoleWrite ("1") ; Return Failure

EndIf

Thanks in advance

Rokkitt

[GEOSoft]

If the question was to convert VBS to AutoIt you could probably expect a proper answer.

This is an AutoIt forum, not a VBS forum.

[Rokkitt]

If the question was to convert VBS to AutoIt you could probably expect a proper answer.

This is an AutoIt forum, not a VBS forum.

Can you suggest a good forum to try?

[GEOSoft]

vbscript.com isn't too bad.

http://www.visualbasicscript.com/