This website uses cookies. By clicking Accept, you consent to the use of cookies. Click Here to learn more about how we use cookies.
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
- Revenera Community
- :
- InstallAnywhere
- :
- InstallAnywhere Forum
- :
- Re: Use VBScript in InstallAnywhere 2011.
Subscribe
- Mark Topic as New
- Mark Topic as Read
- Float this Topic for Current User
- Subscribe
- Mute
- Printer Friendly Page
‎Jun 04, 2013
11:40 PM
Use VBScript in InstallAnywhere 2011.
I have written a VBScript, say activate.vbs, and have trouble running it in InstallAnywhere 2011.
I can run the script in DOS using
wscript activate.vbs
What it does is to open a Telnet session and then run some commands.
I used "Execute Target File", "Execute Command", and "Execute Script/Batch file", but nothing worked for me.
Any help would be appreciated.
The activate.vbs code is as follows:
DIM objShell
DIM domain, telnet_port, usrname, pass
SET objShell = WScript.CreateObject("WScript.Shell")
domain="xxxxxx"
telnet_port=23
usrname="xxx"
pass=""
objShell.run"cmd"
WScript.Sleep 1000
objShell.SendKeys"telnet " & domain & " " & telnet_port
objShell.SendKeys("{Enter}")
WScript.Sleep 1000
objShell.SendKeys"logon " & usrname
objShell.SendKeys("{Enter}")
WScript.Sleep 1000
objShell.SendKeys(pass)
objShell.SendKeys("{Enter}")
WScript.Sleep 1000
objShell.SendKeys"exit"
objShell.SendKeys("{Enter}")
WScript.Sleep 1000
WScript.Quit 1
I can run the script in DOS using
wscript activate.vbs
What it does is to open a Telnet session and then run some commands.
I used "Execute Target File", "Execute Command", and "Execute Script/Batch file", but nothing worked for me.
Any help would be appreciated.
The activate.vbs code is as follows:
DIM objShell
DIM domain, telnet_port, usrname, pass
SET objShell = WScript.CreateObject("WScript.Shell")
domain="xxxxxx"
telnet_port=23
usrname="xxx"
pass=""
objShell.run"cmd"
WScript.Sleep 1000
objShell.SendKeys"telnet " & domain & " " & telnet_port
objShell.SendKeys("{Enter}")
WScript.Sleep 1000
objShell.SendKeys"logon " & usrname
objShell.SendKeys("{Enter}")
WScript.Sleep 1000
objShell.SendKeys(pass)
objShell.SendKeys("{Enter}")
WScript.Sleep 1000
objShell.SendKeys"exit"
objShell.SendKeys("{Enter}")
WScript.Sleep 1000
WScript.Quit 1
(2) Replies
‎Aug 02, 2013
04:51 AM
Please share your solution here. It will be helpful to others.
Thanks,
Ramya
Thanks,
Ramya