Ja, ich nochmal, also ich habe den Dos Befehl nslookup jetzt erfolgreich in einen String abgeschoben:
Die Ausgabe auf der Konsole sieht dann so aus (3 Möglichkeiten):
Fall 1
Fall 2 (Regelfall)
Fall 3
So, ich möchte hierbei die --Server IP-- haben.
Ich habs bereits über einen Split versucht
Allerdings komme ich da zu unbefriedigenden Ergebnissen:
Wenn ich in Fall 1 reinmarschiere bekomme ich einen kritischen Fehler; habe versucht es über
abzufangen, dass scheint allerdings so nicht zu gehen da er mir auch hier Fehler 9: Ausserhalb des gültigen Bereichs ausgibt.
Bei Fall 2 gibt er mir zwar die IP aus, allerdings hat er dahinter zwei Zeilenumbrüche, die durch zwei Quadrate dargestellt werden, was auch nicht so toll ist.
Fall 3 ist die Ausgabe:
--IP des Servers--
aliases: --Aliasname des Servers--
Auch hier wieder die zwei Zeilenumbrüche am Ende, sowie ein Zeilenumbruch nach der IP.
Ich möchte eigentlich -wenn vorhanden- nur die IP Adresse ausgegeben haben, ist dies nicht der Fall soll die Ausgabe ein leerer String sein.
Ich hoffe mir kann jemand helfen, ich such hier schon seit ner ganzen Weile, komme aber leider auf keinen grünen Zweig
Code:
Set objShell = CreateObject("WScript.Shell")
Set objExec = objShell.Exec("CMD /c nslookup " & strName)
strNslookupResult = LCase(objExec.StdOut.ReadAll)
Die Ausgabe auf der Konsole sieht dann so aus (3 Möglichkeiten):
Fall 1
Server: --Nameserver--
Address: --Nameserver IP--
***--Servername-- wurde von --Nameserver-- nicht gefunden: Non-existent domain
Fall 2 (Regelfall)
Server: --Nameserver--
Address: --Nameserver IP--
Name: --Servername--
Address: --Server IP--
Fall 3
Server: --Nameserver--
Address: --Nameserver IP--
Name: --Servername--
Address: --Server IP--
Aliases: -Aliasname des Servers--
So, ich möchte hierbei die --Server IP-- haben.
Ich habs bereits über einen Split versucht
Code:
vntResult = Split(strNslookupResult, "address: ")
Allerdings komme ich da zu unbefriedigenden Ergebnissen:
Wenn ich in Fall 1 reinmarschiere bekomme ich einen kritischen Fehler; habe versucht es über
Code:
If (vntResult(2) = Null) Then
vntResult(2) = " "
End If
Bei Fall 2 gibt er mir zwar die IP aus, allerdings hat er dahinter zwei Zeilenumbrüche, die durch zwei Quadrate dargestellt werden, was auch nicht so toll ist.
Fall 3 ist die Ausgabe:
--IP des Servers--
aliases: --Aliasname des Servers--
Auch hier wieder die zwei Zeilenumbrüche am Ende, sowie ein Zeilenumbruch nach der IP.
Ich möchte eigentlich -wenn vorhanden- nur die IP Adresse ausgegeben haben, ist dies nicht der Fall soll die Ausgabe ein leerer String sein.
Ich hoffe mir kann jemand helfen, ich such hier schon seit ner ganzen Weile, komme aber leider auf keinen grünen Zweig
Zuletzt bearbeitet: