Code: |
Option Explicit
On Error Resume Next Dim objSysinfo, objUser Set objSysInfo = CreateObject("ADSystemInfo") Set objUser = GetObject("LDAP://" & objSysInfo.ComputerName) 'Set objUser = GetObject("LDAP://" & objSysInfo.UserName) wscript.echo objUser.AdsPath |
output generated using printer-friendly topic mod, All times are GMT + 2 Hours