Jump to content
Sign in to follow this  
kpu

AutoLogin Tool

Recommended Posts

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

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...