Top-Themen

Aktuelle Themen (A bis Z)

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

Frage Entwicklung VB for Applications

GELÖST

VBS-Script für NSLOOKUP - DNS-Server

Mitglied: skid

skid (Level 1) - Jetzt verbinden

25.11.2011 um 09:47 Uhr, 6118 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 Nslookup UnKnown Server
Frage von Huibuh2010Windows Server5 Kommentare

Hallo Admins, ich habe ein Umzug von 2008 auf 2016 vom DC vorgenommen. Alles verlief Reibungslos, der neue DC ...

DNS
Namensauflösung nslookup funktioniert nicht - W2k8R2 DNS
gelöst Frage von ConfettiDNS3 Kommentare

Hallo, ich habe folgendes Problem, ich habe Windows Server 2008 R2 unter VMware Workstation 11 mit der Netzwerkeinstellung „Bridged“ ...

Entwicklung
VBS Script startet nicht auf Server 2012
gelöst Frage von shooanEntwicklung6 Kommentare

Guten Morgen zusammen, ich habe ein kleines Problemchen. Bin gerade dabei einen neuen Druckserver auf zu setzen, der auch ...

VB for Applications
VBS Script kann Prgramm nicht starten
gelöst Frage von C.BoernerVB for Applications15 Kommentare

Hallo ihr Admins, Ich habe folgendes Scenarios ein Programm läuft im Hintergrund (Drivve-Image) das übergibt Werte an ein VBS ...

Neue Wissensbeiträge
Datenschutz

Teamviewer kommt für IoT-Geräte wie den Raspberry Pi

Information von magicteddy vor 43 MinutenDatenschutz

Moin, jetzt werden IoT Geräte endgültig zur Wanze? Anscheinend kann man auf einem Dashboard seine Geräte visualisieren Ich stelle ...

Microsoft

Letzte Updates für Win10 und Server2016 müssen bei Bedarf über den Update catalogue in den WSUS importiert werden!

Tipp von DerWoWusste vor 5 StundenMicrosoft1 Kommentar

automatisch kommt da nichts an im WSUS und auch nicht im SCCM. Siehe Hinweise zum Bezug der jeweils neuesten ...

Linux

Meltdown und Spectre: Linux Update

Information von Frank vor 3 TagenLinux

Meltdown (Variante 3 des Prozessorfehlers) Der Kernel 4.14.13 mit den Page-Table-Isolation-Code (PTI) ist nun für Fedora freigegeben worden. Er ...

Tipps & Tricks

Solutio Charly Updater Fehlermeldung: Das Abgleichen der Dateien in -Pfad- mit dem Datenobject ist fehlgeschlagen

Tipp von StefanKittel vor 3 TagenTipps & Tricks

Hallo, hier einmal als Tipp für alle unter Euch die mit der Zahnarztabrechnungssoftware Charly von Solutio zu tun haben. ...

Heiß diskutierte Inhalte
Netzwerkgrundlagen
IPv6 Inter-VLAN Routing
gelöst Frage von clSchakNetzwerkgrundlagen10 Kommentare

Hi ich befasse mich gerade mit der Implementierung von IPv6 was bisher (in einem VLAN) korrekt funktioniert inkl. DNS ...

Windows Netzwerk
Ist ein Portforwarding auf einen PC ohne lauschendes Programm ein (großes) Sicherheitsproblem?
Frage von PluwimWindows Netzwerk10 Kommentare

Hallo zusammen, zur Fernwartung eines Rechners an einem anderen Ort nutze ich VNC. Da dieser Rechner einfach nur eine ...

SAN, NAS, DAS
Wer kennt sich mit QNAP und CISCO aus ?
gelöst Frage von MachelloSAN, NAS, DAS10 Kommentare

Hallo Zusammen hier im Forum, Ich habe ein QNas 451+ und dieses NAS hat zwei GBit Lan Adapter die ...

Netzwerkmanagement
Preis für Wartungsvertrag ok?
Frage von a-za-zNetzwerkmanagement8 Kommentare

Hallo! Mal ne Frage, weil ich mich mit dem akzeptablen Preis für einen Reaktionszeitvertrag nicht auskenne. Meine Firma hat ...