Break On

;--------------------------------------------------------------------------------------------------
;Program Name: Aida.kix
;Creation Date: 9/17/2003
;Purpose: Inventory workstations only if Admin logs on.
;Author: Dan Drass
;Company Name: BRTRC
;Instructions: Download a copy of Aida32 Enterprise Edition from http://www.aida32.hu/aida32.php,
; Its free. Register your copy please.
;
; Create a network share called Aida AND put the following files in it:
; Aida32.exe, Aida32.bin , Aida32.dat AND whatever rpf file you create in it as well.
; Give your users RX rights to it. Under your Server\Aida directory, Create another
; directory called Reports. Give your users W access.

; Note: The names of the server directories are unimportant. You can call them
; anything that you want. You can also create CSV files. I like INI files. See the
; Aida32 manual for all the cool command-line options.
;
; You don't need to install Aida on any other machine.
; I've tested this on NT 4.0 Server and W2K machines. You're free to tweak and
; alter this file any way that you like. Cheers to all.
;------------------------------------------------------------------------------------------------

$Selection = MessageBox("Do you want to inventory this machine? Click No to skip this update. Click Yes to inventory now.", "Inventory Updater", 36)

Select

Case $Selection = 2
? "Cancel selected, continuing...."
Goto CANCEL
Case $Selection = 6
? "Yes selected, continuing...."
Goto YES
Case $Selection = 7
? "No selected, continuing...."
Goto NO

Case 1
? "Unknown selected, continuing...."
Goto Error

EndSelect

:YES
Sleep 1
CLS
Run "\\server\share\aida\aida32 /R \\server\share\aida\a32reports\$HOSTNAME /INI /Custom \\server\share\aida\test.rpf /Silent /Safe"
Goto MESS
;Return

:NO
Sleep 1
CLS
Goto END

;--------------------------------------Lines added for later use

:Error
Sleep 1
CLS
$ReturnCode = SendMessage("LANADMIN" , @USERID + " Inventory Error at " + @TIME)
If $ReturnCode = 0
? "Message has been sent to LAN Admin..."
Sleep 2
Goto END
EndIf

; -----------------------------------------------------------

; *****************************************
; END OF ROUTINE. END OF PROGRAM
;********************************************

:MESS
Sleep 2
CLS
?" Inventory is in progress...please wait....."
Sleep 2
CLS
Goto END

:END
CLS
FlushKB
Exit

;------------- Just in case everything else fails do this check


CLS