VBScript – Return AD Properties

email me

This is a script I put together that returns some specific user account properties from Active Directory.

Option Explicit

DIM objSysInfo,objUser,objShell,strUser

SET objSysInfo = CreateObject("ADSystemInfo")
SET objShell = CreateObject( "WScript.Shell" )

'RETURN CURRENT USER
strUser = objSysInfo.UserName

'CREATE AD USER OBJECT
SET objUser = GetObject("LDAP://" & strUser)

'TEST OUTPUT
msgbox objUser.displayName
msgbox objUser.sAMAccountName
msgbox objUser.fimwpoBusinessUnit
msgbox objUser.fimwpoBusinessUnitDescription
msgbox objUser.fimwpoBusinessTitle
msgbox objUser.mail
msgbox objUser.employeeID

'COULD WRITE TO REGISTRY HERE
'TO BE ADDED

'COULD WRITE DIRECTLY TO LD DB HERE
'TO BE ADDED

WScript.Quit(0)