' List Terminal Services Profile Properties
Set objUser = GetObject _
("LDAP://cn=MyerKen,ou=Management,dc=NA,dc=fabrikam,dc=com")
WScript.Echo "Terminal Services Profile Path : " & _
objUser.TerminalServicesProfilePath
WScript.Echo "Terminal Services Home Directory: " & _
objUser.TerminalServicesHomeDirectory
WScript.Echo "Terminal Services Home Drive: " & _
objUser.TerminalServicesHomeDrive
WScript.Echo "Allow Logon: " & objUser.AllowLogon