Sample scripts

SecureCrt

Download securecrt.tlb type library

# $language = "VBScript"
# $interface = "1.0"

'library:c:\mytypelib\securecrt.tlb
'Dim crt As SecureCrt.crt

' A VBScript login script that waits for a login prompt then sends
' a 'setenv DISPLAY <ipaddress>:0.0' command to direct X-clients to a
' locally run Xserver.

Sub Main

  crt.Screen.WaitForString("myhost$ ")

  Dim display
  display = "setenv DISPLAY " & crt.Session.LocalAddress & ":0.0" & vbCr
  crt.Screen.Send(display)

End Sub



VbsEdit provides Intellisense for SecureCRT!

Home  

Copyright © 2001-2024 adersοft