Листинг 3.

Использование свойства ADSI Parent для возврата Server Name для Northwind Database (сценарий VBScript)

Set objConnection = CreateObject(«ADODB.Connection»)
Set objCommand = CreateObject(«ADODB.Command»)
objConnection.Provider = «ADsDSOObject»
objConnection.Open «Active Directory Provider»
Set objCommand.ActiveConnection = objConnection
objCommand.CommandText = _
«Select ADsPath from ?LDAP://CN=Computers,DC=mydomain,DC=com? « _
& «WHERE objectClass=?mS-SQL-SQLDatabase? « _
& «AND mS-SQL-Name=?Northwind?»
objCommand.Properties(«Page Size») = 1000
objCommand.Properties(«Timeout») = 30
objCommand.Properties(«Cache Results») = False
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
Do Until objRecordSet.EOF
	Set ObjADSI = GetObject(ObjRecordSet(«ADsPath»).Value)
	WScript.Echo «Parent is « & ObjADSI.Parent
	WScript.Echo «Database is « & ObjADSI.Get(«mS-SQL-Name»)
	Set ObjADSIPAR = GetObject(ObjADSI.Parent)
	WScript.Echo «Database Parent is « & ObjADSIPAR.Get(«mS-SQL-Name»)
	Wscript.Echo «
	Set ObjADSIGPAR = GetObject(ObjADSIPAR.Parent) 	
	WScript.Echo «SQLServer is « & ObjADSIGPAR.Get(«cn»)
 	objRecordSet.MoveNext
Loop
objConnection.Close