Nope, NT4 on about 2200+ PC's that run my current logic each day. Here is what I have thus far, any suggestions?
I am concerned at the way the update allows only one at a time, is there a better way?
BTW: Thanks again for the assistance!!
; ***** Lookup Section, find info in registry and declare variable to be used by scripts
; ESD Exception List ***** Set Variable to show PC hardware type Laptop, Dell, Compaq or Unknown *****
SETL "MACHINE_TYPE=Unknown"
SELECT
CASE ExistKey("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum\Root\LEGACY_PCMCIA")=0
$MACHINE_TYPE=Laptop
CASE ExistKey("HKEY_LOCAL_MACHINE\SOFTWARE\Compaq")=0
$MACHINE_TYPE=Compaq
CASE ExistKey("HKEY_LOCAL_MACHINE\SOFTWARE\Dell Computer Corporation")=0
$MACHINE_TYPE=Dell
ENDSELECT
; ESD Exception List ***** Set Variable to show PC GDMS hardware platform Ex. dp6350 *****
$lookup=ReadValue("HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\Windows NT\CurrentVersion", "GDMS_Hw_Platform")
$GDMS_Hw_Platform=$lookup
; ESD Exception List ***** Set Variable to show current SP version *****
$lookup=ReadValue("HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\Windows NT\CurrentVersion", "CSDVersion")
SELECT
CASE INSTR($lookup, "3")>0
$SPVersion=SP3
CASE INSTR($lookup, "4")>0
$SPVersion=SP4
CASE INSTR($lookup, "5")>0
$SPVersion=SP5
CASE INSTR($lookup, "6")>0
$SPVersion=SP6
ENDSELECT
; ESD Exception List ***** Set Variable to show if user is in Administrators group *****
$ReturnCode = INGROUP("\\@WKSTA\Administrators")
If $ReturnCode < 2
$AdminEquiv=No
ELSE
$AdminEquiv=Yes
ENDIF
; *********************************************************************************************************************
break on
$database= "F:\Working\logonv2.mdb"
$dsn= "data source= $database; provider= microsoft.jet.oledb.4.0;"
; Create connection...
$connection= olecreateobject("adodb.connection")
if @error
?"mdac:adodb not insalled on this machine"
quit(0)
endif
; Set the connect string ...
$= oleputproperty($connection,"connectionstring","s","$dsn")
; Open connection ...
$= olecallfunc ($connection,"open")
; Create a table ...
; ***** $= olecallfunc($connection,"execute","s","create table logon (COMPUTERNAME char(50) primary key, USERID char(50))")
; Add a record for the PCNAME, note this field is primary will allow no duplicates...
; $= olecallfunc($connection,"execute","s","insert into logon (COMPUTERNAME, USERID) values ('@WKSTA', '@USERID')")
$= olecallfunc($connection,"execute","s","insert into logon (COMPUTERNAME) values ('@WKSTA')")
; Update USERID
$= olecallfunc($connection,"execute","s","update logon set USERID = '@USERID' where COMPUTERNAME = '@WKSTA'")
; Update PCTYPE
$= olecallfunc($connection,"execute","s","update logon set PCTYPE = '$MACHINE_TYPE' where COMPUTERNAME = '@WKSTA'")
; Update HWTYPE
$= olecallfunc($connection,"execute","s","update logon set HWTYPE = '$GDMS_Hw_Platform' where COMPUTERNAME = '@WKSTA'")
; Update SPVER
$= olecallfunc($connection,"execute","s","update logon set SPVER = '$SPVersion' where COMPUTERNAME = '@WKSTA'")
; Update ADMINEQUIV
$= olecallfunc($connection,"execute","s","update logon set ADMINEQUIV = '$AdminEquiv' where COMPUTERNAME = '@WKSTA'")
; *********************************************************************************************************************
; Closeup (important!) ...
$= olecallfunc($connection,"close")