ADSI: Get User Account Properties
9/24/2004 8:18:47 AM
ADSI script accepts a user object and returns properties for the account.
' accepts oUser and gets the home drive for the account
' example for oUser
' Set oUser = GetObject(strDomain & "/" & strUser)
Function GetAccountProfile(oUser)
Dim tmpProfile
tmpProfile = oUser.HomeDirDrive
GetAccountProfile = tmpProfile
End Function
|
