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