VBScript to Return OU where User account is located

This will give the OU location when user account is given
================================================

On Error Resume Next

Const ADS_SCOPE_SUBTREE = 2

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand =   CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
FindUser = InputBox("Please Enter the UserName", "Find User OU")
If FindUser = "" Then
MsgBox("No UserName Was Added")
WScript.Quit
Else
strUser = FindUser
End If
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE

objCommand.CommandText = _
    "SELECT ADsPath FROM 'LDAP://dc="giveurdchere",dc="yourdc",dc="yourdc"'WHERE objectCategory='user'AND sAMAccountName='" & strUser & "'"
Set objRecordSet = objCommand.Execute

objRecordSet.MoveFirst
Do Until objRecordSet.EOF
    Wscript.Echo objRecordSet.Fields("ADsPath").Value
    objRecordSet.MoveNext
Loop
===================================================

Hi there, for a logon script, this will give you the breakdown of the path for your current user account, so you can pick which element you are after and change the index in
strOU = arrOU(1)

to suit.

Regards,

Rob.

Set objADSysInfo = CreateObject("ADSystemInfo")
arrOU = Split(objADSysInfo.UserName, ",")
strPath = "OU Path"
For intBit = LBound(arrOU) To UBound(arrOU)
	strPath = strPath & VbCrLf & "Element " & intBit & ": " & arrOU(intBit)
Next
MsgBox strPath
strOU = arrOU(1)
MsgBox strOU

Select allOpen in new window