Quote:

---

$oTelnet = $HABObject.Telnet()

---

Quote:

---

Hi
I must script a telnet session to a switch, to download the configuration. The switch does not support ftp. When I am connected trough telnet, it is only some keypress that must be done, single letters.
Is this possibly with kix ??

/Mima

---

 Dim $AutoIt
$AutoIt = WScript.CreateObject("AutoItX3.Control")
run '%Comspec% /c "Telnet.exe"'
;Shell '%Comspec% /c "Telnet.exe"'
$AutoIt.Send "open 172.20.40.48"
 

$AutoIt = CreateObject("AutoItX3.Control")
; Trying to lanch a telnet session
$AutoIt.run "Telnet.exe"
$AutoIt.Send "open 172.20.40.48"
  

Break ON
$=SetOption("Explicit","ON")
$=SetOption("WrapAtEOL","ON")
 
Global	$OBJECT		$OBJECT=9
Dim	$oAutoIT
Dim	$sRouterIP	$sRouterIP="open 172.20.40.48"
Dim	$sCommand
Dim	$sTitle		$sTitle="AutoTelnet"
Dim	$iPID
 
; Create AutoIT object
$oAutoIt = CreateObject("AutoItX3.Control")
If @ERROR OR VarType($oAutoIt)<>$OBJECT "ERROR: Could not create AutoIt instance"+@CRLF Exit @ERROR EndIf
 
; Set title matching to allow advanced directives
$=$oAutoIt.Opt("WinTitleMatchMode",4)
 
$sCommand="telnet.exe"
Run '"'+%COMSPEC%+'" /C START "'+$sTitle+'" '+$sCommand 
If @ERROR "ERROR: Could not start command"+@CRLF Exit @ERROR EndIf
 
; Wait for telnet window to appear...
If Not CInt($oAutoIt.WinWait($sTitle,"",10)) "ERROR: Telnet process took too long to appear."+@CRLF Exit 1 EndIf
sleep 1
$oAutoIt.Send("open "+$sRouterIP+"{ENTER}")