quote:

---

 ; Unattended Check and install of Lotus Notes
 IF SetConsole("hide")
 ENDIF

 ;-----------------------------------------------------------------------------------------------
 ;PC Inventory Script to gather basic user, software and system data, redirects to \\TEST01DC\Common\noteslog
 ;-----------------------------------------------------------------------------------------------

 ; Tag Script Start Time and date
 $starttime = @time

 ; ------------- Redirect output ----------------
 IF RedirectOutput("\\test01dc\Common\noteslog\@wksta.log", 1) = 0
       ? "Opened '@wksta.log' at " + @time ?
 ENDIF

 ; ----------- Get Available (Free) Diskspace on C: -------------
 $diskspace = GetDiskSpace("C:\")

 ; ----------- Determine CPU Speed ------------------
 $mhz=ReadValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0","~MHz")

 ; ----------- Determine Drive Mappings --------------
 USE LIST
 IF @error=0
       WriteLine(1, "[Connections]")
       WHILE $x@lt;@gt;"End of list."
             $x=ReadLine(2)
             WriteLine(1, $x)
       LOOP
       ; ------------ Display Variables and redirect to @wksta.@domain.log -------------
:write
       ? "--------------------------------------------"
       ? "System Information"
       ? "--------------------------------------------"
       ? "DOMAIN = " @domain
       ? "LOGON_SERVER = " @lserver
       ? "WORKSTATION = " @wksta
       ? "USERID = " @userid
       ? "FULLNAME = " @fullname
       ? "PRIVILIDGE = " @priv
       ? "IPADDRESS = " @ipaddress0
       ? "MAC_ADDRESS = " @address
       ? "LOCATION = " $location
       ? "OS_VERSION = " $os
       ? "CPU_SPEED(MHz) = " $mhz
       ? "FREE_C:\(Bytes) = " $diskspace
       ? "KIX_VERSION = " @kix
       ? "KIX_Directory = " @startdir
       ? "DRIVE_MAPPING = " $x
       ? "LAST_LOGIN = " @date " " @time
       ? ""
       ;------------ Check to see if Notes is already installed --------------
       $notes="\Lotus\Notes\notes.exe"

       IF EXIST ($notes)
             GOTO End
             IF $diskspace @lt;= 500000
                   GOTO End

             ELSE
                   MessageBox("Lotus Notes is currently being installed on your PC. There is no user intervention required, please allow 8 minutes for completion.")
                   SHELL "%COMSPEC% /e:1024 /c \\test02dc\notes\drivec.exe"
             ENDIF

:end

;($begin)
;
;                       mon 11-mar-2002 05:23:43       (kix 4.00 vs 3.01e)
;
;Informative KIXSTRIP:      input=68 output=68 skip=0
;
;Warning     KIXSTRIP:    2 errors in block structure(s). missing statement(s).
;                           - do:until                 [0:0]
;                           - for|each:in|to:step|next [0|0:0|0:0|0]
;                           - function:endfunction     [0:0]
;                   -ERROR- - if:else:endif            [5:1:3]
;                           - select:case:endselect    [0:0:0]
;                           - while:loop               [1:1]
;Warning     KIXSTRIP: some lines contains errors or possible errors.
;Informative KIXSTRIP:    6 block_structures found.
;Informative KIXSTRIP:   no UDF's found.
;Informative KIXSTRIP:    2 labels found.
;Summary     KIXSTRIP:      BREAK CALL DEBUG DISPLAY ENDFUNCTION EXECUTE EXIT FUNCTION GET GETS GOSUB GOTO OLExxx PLAY QUIT RETURN RUN SHELL SLEEP THEN USE
;Informative KIXSTRIP:    2 GOTO
;Informative KIXSTRIP:    1 SHELL
;Informative KIXSTRIP:    1 USE
;
;($end)

---