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

' VBScript example that utilizes the 'Environment' method of the Windows
' Scripting Host (WSH) to read various settings from the Windows environment 
' And use those settings to pass to SecureNetTerm

Dim envComputer,envUser,envDomain

Sub GetEnv
  Set shell = CreateObject("WScript.Shell")
  Set env = shell.Environment("process")
  envComputer = env("COMPUTERNAME")
  envUser = env("USERNAME")
  envDomain = env("USERDOMAIN")
End Sub

Sub Main
GetEnv
Dim user,pass
ret = snt.Prompt("Enter your USERID","My Company",envUser,FALSE)
ret = snt.Prompt("Password","Secure Logon","This is a password",TRUE)
End Sub