Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

VBS-Script für NSLOOKUP - DNS-Server

Frage Entwicklung VB for Applications

Mitglied: skid

skid (Level 1) - Jetzt verbinden

25.11.2011 um 09:47 Uhr, 5953 Aufrufe, 2 Kommentare

Moin,

ich habe ein VBS-Script mit dem ich per NSLOOKUP Servernamen auflösen kann.
Funktioniert auch ganz gut !

Nun will ich aber einen bestimmten DNS-Server abfragen. Habe es aber nicht geschafft einen bestimmten mitzugeben....

Vielleicht könnt ihr mir da weiterhelfen, wie ich es schaffe einen bestimmten DNS-Server abzufragen !?

Hier das Script dass ich für die NSLOOKUP Abfrage benutze:

01.
 
02.
WScript.Echo DNSLookup("SERVER01")   ' Server / Client der per NSLOOKUP aufgelöst werden soll 
03.
 
04.
Function DNSLookup(sAlias) 
05.
   
06.
  Set objWSHShell = WScript.CreateObject("WScript.Shell") 
07.
  Set objShell = CreateObject("Shell.Application") 
08.
   
09.
   
10.
  If len(sAlias) = 0 Then 
11.
    DNSLookup = "Failed." 
12.
    Exit Function 
13.
  End If 
14.
 
15.
  Const OpenAsDefault = -2 
16.
  Const FailIfNotExist = 0 
17.
  Const ForReading = 1 
18.
 
19.
  Set oShell = CreateObject("WScript.Shell") 
20.
  Set oFSO = CreateObject("Scripting.FileSystemObject") 
21.
  sTemp = oShell.ExpandEnvironmentStrings("%TEMP%") 
22.
  sTempFile = sTemp & "\" & oFSO.GetTempName 
23.
 
24.
  oShell.Run "%comspec% /c nslookup " & sAlias & ">" & sTempFile, 0, True 
25.
 
26.
  Set fFile = oFSO.OpenTextFile(sTempFile, ForReading, FailIfNotExist, OpenAsDefault) 
27.
  sResults = fFile.ReadAll 
28.
  fFile.Close 
29.
  oFSO.DeleteFile (sTempFile) 
30.
 
31.
  aIP = Split(sResults, "Address:") 
32.
 
33.
  If UBound(aIP) < 2 Then 
34.
    DNSLookup = "Failed." 
35.
     
36.
   Else 
37.
    aIPTemp = Split(aIP(2), Chr(13)) 
38.
    DNSLookup = trim(aIPTemp(0)) 
39.
  End If 
40.
     
41.
  Set oShell = Nothing 
42.
  Set oFSO = Nothing 
43.
End Function 
44.
 
SKID
Mitglied: Logan000
25.11.2011 um 10:07 Uhr
Moin moin

Nun will ich aber einen bestimmten DNS-Server abfragen.
Habe es aber nicht geschafft einen bestimmten mitzugeben....

Su kannst doch über den Parameter -Server einen bestimmten DNS server angeben.
Schau mal hier.

Gruß L.
Bitte warten ..
Mitglied: skid
25.11.2011 um 10:34 Uhr
Moin,

ja stimmt, danke......oh man.....da hab ich wohl etwas zu kompliziert gedacht....

Gruß
SKID
Bitte warten ..
Ähnliche Inhalte
Windows Server
DNS Server unter 2012R2, Clients W8.1 per GPO festlegen (2)

Frage von Brecklinghaus zum Thema Windows Server ...

Off Topic
DNS-Server von regfish (4)

Frage von Chonta zum Thema Off Topic ...

DNS
gelöst Domain.de auf internem DNS Server (7)

Frage von Max-Mauser zum Thema DNS ...

Linux Netzwerk
gelöst Rdnssd DNS Server Linux (4)

Frage von NeuRechnernetze zum Thema Linux Netzwerk ...

Neue Wissensbeiträge
Peripheriegeräte

Was beachten bei der Wahl einer USV Anlage im Serverschrank

(2)

Tipp von zetboxit zum Thema Peripheriegeräte ...

Windows 10

Das Windows 10 Creators Update ist auf dem Weg

(5)

Anleitung von BassFishFox zum Thema Windows 10 ...

Administrator.de Feedback

Tipp: Ungelöste Fragen ohne Antwort in Tickeransicht farblich hinterlegen

Tipp von pattern zum Thema Administrator.de Feedback ...

Viren und Trojaner

Neue Magazin Ausgabe: Malware und Angriffe abwehren

Information von Frank zum Thema Viren und Trojaner ...

Heiß diskutierte Inhalte
Windows Systemdateien
Warum System auf "C:" (29)

Frage von DzumoPRO zum Thema Windows Systemdateien ...

LAN, WAN, Wireless
Cisco SG200: Auf bestimmtem vLAN bestimmte TCP-Ports sperren (16)

Frage von SarekHL zum Thema LAN, WAN, Wireless ...

Windows Server
gelöst Update BackupExec 2015 auf 2016 führt zu SQL-Server Problem (16)

Frage von montylein1981 zum Thema Windows Server ...

Cloud-Dienste
gelöst Bitcoins minen über Nacht? (16)

Frage von 1410640014 zum Thema Cloud-Dienste ...