permissions.

start from the beginning, add error lines and run:
 Code:
$objSys = CreateObject("ADSystemInfo") 
"objsys: " @error ?
$objUser = GetObject("LDAP://"+$objSys.UserName)
"objuser: " @error ?
get $
_________________________
!

download KiXnet