AutoLogin Tool

[kpu]

Hey Everyone,

Made this awhile back after our company started using Novell's Secure Login suite.

It's a basic tool to login into GroupWise. There is two parts to this code. It doesn't use any incrpytion though...but, either does Novell.

Here is the first Part.

; ----------------------------------------------------------------------------
; Script Start
; ----------------------------------------------------------------------------

$run = RegRead ( "HKEY_CURRENT_USER\Identities", "run" ) 
$uname = RegRead ( "HKEY_CURRENT_USER\Identities", "tusr" ) 
$pword = RegRead ( "HKEY_CURRENT_USER\Identities", "pusr" ) 

if $run = "10" then 
Run ( "Gwloop.exe", ,  ) 

else

;Asks the user to enter a username.
$username = InputBox("UserName", "Please Enter Your Username.", "", "")
 
; Write a single REG_SZ value
RegWrite("HKEY_CURRENT_USER\Identities", "tusr", "REG_SZ", $username)

;Asks the user to enter a password. 
$passwd = InputBox("Password", "Please enter your password.", "", "*")

; Write a single REG_SZ value
RegWrite("HKEY_CURRENT_USER\Identities", "pusr", "REG_SZ", $passwd)

; Write a single REG_SZ value
RegWrite("HKEY_CURRENT_USER\Identities", "run", "REG_BINARY", 10)
Run( "c:\Novell\GroupWise\GrpWise.exe /@u-?", "" ,  )
sleep(1000)
Run ( "Gwloop.exe",,  ) 
Endif

Here's the second part. It must be named Gwloop.exe

HotKeySet("{F8}", "Terminate")
HotKeySet("{F9}", "cleanup")


;AutoItSetOption ("TrayIconHide",1)

$pword = RegRead ( "HKEY_CURRENT_USER\Identities", "pusr" ) 
while WinWaitActive ( "Novell GroupWise Startup" ,"" ) 
WinSetState ( "Novell GroupWise Startup", "", @SW_SHOW  )
sleep(500)
send ( $pword) 
send ("{ENTER}")
WinWaitClose ( "Novell GroupWise - Mailbox", "" , )
WEnd

Func Terminate()
    Exit 0
EndFunc

Func cleanup()
RegDelete ( "HKEY_CURRENT_USER\Identities", "pusr")
RegDelete ( "HKEY_CURRENT_USER\Identities", "run")
RegDelete ( "HKEY_CURRENT_USER\Identities", "tusr")
MsgBox(0,"Done", "Operation Complted", "")
EndFunc