• Why do you need the information?
• Do you need to collect this information from individual users, all users, or a specific group of users?
• Does it have to run in the logon script or as an admin script?
• Finally (for now), what specific information do you want returned? (I assumed the info from the first post; Office (which is physicalDeliveryOfficeName in LDAP), and Location (same in LDAP)?

Quote:

---

Ok with Bryce's code though that is displaying or would be displaying a specific user. See what is going to happen is this. Our default logon script runs. Then just before it exits it is going to call this pc inventory script to retrieve this information and dump it into an SQL database. It all works except retrieving the office they are located in. So i will need it to pull the office that the current user logging on is in.

---

$sWhat = "physicalDeliveryOfficeName"
 
$sFrom = "LDAP://"+GetObject("LDAP://rootDSE").Get("defaultNamingContext")
 
$sFilter = "(&(objectCategory=user)(samAccountName="+@USERID+"))"
 
$sScope = "subtree"
 
$aResults = fnLDAPQuery($sWhat,$sFrom,$sFilter,"displayName ASC",$sScope)
 
"My physicalDeliveryOfficeName is: " + $aResults[0] ?

$users = GetObject("LDAP://OU=Corporate,OU=CompanyA,DC=Company,DC=local")
$users.filter = Split("user")
For Each $user In $users
	? $user.OfficeLocations
Next

$sWhat = "physicalDeliveryOfficeName"
 
$sFrom = "LDAP://"+GetObject("LDAP://rootDSE").Get("defaultNamingContext")
 
$sFilter = "(&(objectCategory=user)(samAccountName="+@USERID+"))"
 
$sScope = "subtree"
 
$aResults = fnLDAPQuery($sWhat,$sFrom,$sFilter,"displayName ASC",$sScope)
 
"My physicalDeliveryOfficeName is: " + $aResults[0] ?
 
Get $

Function fnLDAPQuery($What,$From,Optional $Filter,Optional $OrderBy,Optional $Scope,Optional $User,Optional $Pswd)
    Dim $oCon,$oCMD,$oRS,$sQ,$sF,$sGV,$R,$vP,$aR[0],$nul
    
    If $Scope <> "base" AND $Scope <> "onelevel" AND $Scope <> "subtree" $Scope = "subtree" EndIf
    
    $sQ = "<"+$From+">;"+$Filter+";"+Iif(VarType($What)>8192,Join($What,','),$What)+";"+$Scope
    
    If VarType($What)>8192
        For Each $sF in $What $sGV=$sGV+'$'+'oRS.Fields("'+$sF+'").Value,' Next
        $sGV=Substr($sGV,1,Len($sGV)-1)
    Else
        $sGV='$'+'oRS.Fields("'+$What+'").Value'
    EndIf
    
    $oCon=CreateObject("ADODB.Connection")
    $oCon.Provider = "ADsDSOObject"
    $oCon.Properties("Encrypt Password").Value=1
    $oCon.Properties("ADSI Flag").Value=1
    If $User AND $Pswd
        $oCon.Properties("User ID").Value=$User
        $oCon.Properties("Password").Value=$Pswd
    EndIf
    $oCon.Open("Active Directory Provider")
     
    $oCMD=CreateObject("ADODB.Command")
    $oCMD.ActiveConnection=$oCon
    $oCMD.CommandText=$sQ
    $oCMD.Properties("Page Size").Value=1000
    $oCMD.Properties("Timeout").Value=30
    $oCMD.Properties("Cache Results").Value=0
    
    If $OrderBy="distinguishedName"
        $oRS = CreateObject("ADODB.Recordset")
        $oRS.CursorLocation=3
        $oRS.Sort=$OrderBy
        $oRS.Open($sQ,$oCon,0,1,1)
    Else
        If $OrderBy
            $oCMD.Properties("Sort On").Value=$OrderBy
        EndIf
        $oRS = $oCMD.Execute
    EndIf
    If @ERROR Exit @ERROR EndIf
    If $oRS.BOF AND $oRS.EOF Exit @ERROR EndIf
    
    Do 
        $nul=Execute('$'+'vP='+$sGV)
        $aR[$R]=$vP
        $oRS.MoveNext
        $R=$R+1
        ReDim Preserve $aR[$R]
    Until $oRS.EOF
    ReDim Preserve $aR[$R-1]
    $fnLDAPQuery=$aR
EndFunction