Jump to content

Any suggestions on converting this VBScript to an AutoIt script?


 Share

Recommended Posts

I have created some basic AutoIT scripts and need to convert this VBScript to AutoIT. I am not very familiar familiar with VBScript. Does anyone have any suggestions on where to start? I was experimenting with this below and am able to read the file. However I need to check for individual user IDs and then copy the corresponding ini file for that user ID. Should I use _FileReadToArray? Any suggestions are greatly appreciated.

$file = FileOpen("\\ecdcdbtextpms02\d$\Admin-Setup\SetUp\lookuptable.txt", 0)
; Check if file opened for reading OK
If $file = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
; Read in 1 character at a time until the EOF is reached
While 1
Local $chars = FileRead($file, 1)
If @error = -1 Then ExitLoop
MsgBox(0, "Char read:", $chars)
WEnd
FileClose($file)

This is the VBScript:

set fso = createobject("scripting.filesystemobject")
set onet = createobject("wscript.network")
username = onet.UserName
Do while Mid(username,1,1) = "0"
username = Mid(username,2,len(username) - 1)
Loop

If not fso.FileExists("\\ecdcdbtextpms02\d\Admin-Setup\SetUp\lookuptable.txt") then
Wscript.echo "You must be connected to the network to complete the configuration of DB TextWorks"
Wscript.quit
End If
set inFile = fso.OpenTextFile("\\ecdcdbtextpms02\d\Admin-Setup\SetUp\lookuptable.txt",1,false)
userfound = "N"
do while not inFile.atEndOfStream and userfound = "N"
linevar = inFile.ReadLine()
uservar = Mid(linevar,1,InStr(linevar,vbTab) - 1)
If uservar = username then
inipos = InStr(linevar,vbTab)
inivar = Mid(linevar,inipos + 1,len(linevar) - inipos)
userfound = "Y"
End if
loop
inFile.Close()
If userfound = "Y" then
fso.CopyFile inivar, "C:\Program Files\inmagic\inmagic.ini"
Else
Wscript.echo "Your username was not found in the Security Table for DB TextWorks. Your configuration was not completed."
Wscript.quit
End If
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...