$machine = @WKSTA
        $Extension = "999"
        $UsersKey = @USERID
        $Active = "N"
        $Clientkey="NULL"
        
    
        $cnstring = 'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=Database1;Data Source=SQLServer6;Password='
        $cmdtext = "SELECT * FROM XXXWorkstation where workstationkey = '" + $machine + "'"
        $cn = CreateObject("adodb.connection") 
        $cmd = CreateObject("adodb.command") 
        $cn.connectionstring = $cnstring 
        $cn.Open 
        $cmd.activeconnection = $cn 
        $cmd.commandtext = $cmdtext 
        
        $rs = CreateObject("adodb.recordset") 
        $rs.cursortype = 3 
        $rs.locktype = 3 
        $rs.Open($cmd)
        

            $rs.Fields.Item("Extension").Value = $Extension
            $rs.Fields.Item("MachineKey").Value = $MachineKey
            $rs.Fields.Item("UsersKey").Value = $UsersKey
            $rs.Fields.Item("Active").Value = $Active
            $rs.Fields.Item("Clientkey").Value = $Clientkey

            
            $rs.Update
        
        $rs.Close
        $cn.Close

$nullstring = ""

Global $NULL
Dim $FOO

"Settiing $$FOO..."+@CRLF
$FOO="bar"
"$$FOO now has a type of "+VarTypeName($FOO)+@CRLF

"Resetting $$FOO..."+@CRLF
$FOO=$NULL
"$$FOO now has a type of "+VarTypeName($FOO)+@CRLF