Set objSysInfo = CreateObject("ADSystemInfo") strUser = objSysInfo.UserName strComputer = objSysInfo.ComputerName strsite=UCase(objSysInfo.SiteName) Set objUser = GetObject("LDAP://" & strUser) strUserName = objUser.displayName Set objComputer = GetObject("LDAP://" & strComputer) Wscript.echo strUser Wscript.echo strUserName 'Wscript.echo objUser.objectSid Wscript.echo strComputer Wscript.echo objComputer.Name 'Wscript.echo objComputer.objectSid Wscript.echo strsite Set objSysInfo = Nothing