Hallo
Ich habe im Internet einen VBScript gefunden der mir alle Domain Controllers auflistet. Diese Script funktioniert als VBS einwandfrei. Beim Einbetten in mein VB.net Programm (VB.net 2.0) erhalte ich eine Fehlermeldung „Ungültige Konvertierung
von Typ Field in Typ String.“
Der Fehler tritt in der Codezeile „objDC = GetObject(GetObject(rs(0)).Parent“
Für Eure Hilfe danke ich in voraus.
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Connect, Command, objDC, LDAPQ, strDCs, rs, objRootDSE
objRootDSE = GetObject("LDAP://RootDSE")
Connect = CreateObject("ADODB.Connection")
Command = CreateObject("ADODB.Command")
Connect.Provider = "ADsDSOObject;"
Connect.open()
Command.ActiveConnection = Connect
objRootDSE = GetObject("LDAP://RootDSE")
LDAPQ = "<LDAP://" & objRootDSE.Get("ConfigurationNamingContext") & ">;((objectClass=nTDSDSA));ADsPath;subtree"
Command.CommandText = LDAPQ
Command.Properties("Page Size") = 1000
rs = Command.Execute
Do While rs.EOF <> True And rs.BOF <> True
objDC = GetObject(GetObject(rs(0)).Parent)
strDCs = strDCs & objDC.dNSHostName & ", "
rs.MoveNext()
Loop
Connect.close()
MsgBox(strDCs)
End Sub
End Class
