I had another thought. Give this a try...

Code:

Break On

$nul=SetOption("WrapAtEOL","On")

$objADSystemInfo = CreateObject("ADSystemInfo")
If @ERROR
   @ERROR " | " @SERROR ?
Else
   "Fully Qualified User Name: " + $objADSystemInfo.UserName ?

   $User = GetObject("LDAP://" + $objADSystemInfo.UserName)
   If @ERROR @ERROR " | " @SERROR ? EndIf
   "Username: " $User.samAccountName ?
   "Department: " $User.Department ?
EndIf