' -------------------------------------------------------------------------
'       From the book Inside Active Directory, ISBN 0-201-61621-1
'       Copyright (C) 2002 by Addison-Wesley
'       Script by Sakari Kouti (see http://www.kouti.com)
' You have a royalty-free right to use, modify, reproduce and distribute
' this script (and/or any modified version) in any way you find useful,
' provided that you agree that Addison-Wesley or Sakari Kouti has no
' warranty, obligations or liability for the script. If you modify
' the script, you must retain this copyright notice.
' -------------------------------------------------------------------------
Option Explicit

Dim objADObject

Set objADObject = _
	GetObject("LDAP://CN=Guest,CN=Users,DC=sanao,DC=com")

WScript.Echo "AdsPath:" & vbTab & objADObject.AdsPath
WScript.Echo "Class:" & vbTab & objADObject.Class
WScript.Echo "GUID:" & vbTab & objADObject.GUID
WScript.Echo "Name:" & vbTab & objADObject.Name
WScript.Echo "Parent:" & vbTab & objADObject.Parent
WScript.Echo "Schema:" & vbTab & objADObject.Schema