AD SystemInfo

‘ AD SystemInfo
Dim objSysInfo
Set objSysInfo = CreateObject(«ADSystemInfo»)
Dim strUserLdapPath
strUserLdapPath = objSysInfo.UserName
Dim objUser
Set objUser = GetObject(«LDAP://» & strUserLdapPath)
objUser.GetInfo

Tags:
This site is protected by WP-CopyRightPro