GetUserObject()
' -----------------------------------------------
' GetUserObject()
' Returns the user object for the user running
' the script.
' -----------------------------------------------
Function GetUserObject()
'Dim objRootDSE
Dim objADsSysInfo, objUser, strUserDistName
' Create an ADSystemInfo object
Set objADsSysInfo = CreateObject("ADSystemInfo")
' Get Distinguished name of user
strUserDistName = objADsSysInfo.UserName
' Get User object
Set objUser = GetObject("LDAP://" & strUserDistName)
' Return User object
Set GetUserObject = objUser
End Function
' GetUserObject()
' Returns the user object for the user running
' the script.
' -----------------------------------------------
Function GetUserObject()
'Dim objRootDSE
Dim objADsSysInfo, objUser, strUserDistName
' Create an ADSystemInfo object
Set objADsSysInfo = CreateObject("ADSystemInfo")
' Get Distinguished name of user
strUserDistName = objADsSysInfo.UserName
' Get User object
Set objUser = GetObject("LDAP://" & strUserDistName)
' Return User object
Set GetUserObject = objUser
End Function
Dim objUser
Set objUser = GetUserObject()
Set objUser = GetUserObject()
Returns the user object of the currently running user for use with functions requiring a user object.
| Requires: | Nothing. |
| Returns: | A user class object. |
