# $language = "PerlScript"
# $interface = "1.0"

# A simple login script using Perlscript.

# Enable error warnings
#
#use strict;
use Win32::OLE;
Win32::OLE->Option(Warn => 3);

my ($snt);

sub main {
# Use existing instance if SecureNetTerm is already running or start SecureNetTerm
eval {$snt = Win32::OLE->GetActiveObject('SecureNetTerm.Document')};
die "SecureNetTerm not installed" if $@;
unless (defined $snt) {
    $snt = Win32::OLE->new('SecureNetTerm.Document','Quit')
    or die "Unable to start SecureNetTerm";}
$snt->{'WindowState'} = 1;
if($snt->Connect("\\myCustom\\Telnet"))
     {
     if($snt->WaitForString("login:",30))
          {
          $snt->Send("zkrr01\015");
          if($snt->WaitForString("Password:",30))
               {
               $pass = $snt->Prompt("Password","RunExternalSNT","",TRUE);
               $snt->Send("$pass\015");
               if($snt->WaitForString("\$",30))
                    {
                    $snt->Send("ls\015");
                    } 
               }
          }
     while ($snt->{'Connected'})
          {
          }
     $Answer = $snt->MessageBox("Disconnected, quit SecureNetTerm application?","RunExternalSNT",4);
     if($Answer == 6)
          {
          $snt->QuitApp();
          }
     }
}