Jump to content

VBScript für BGInfo Default Gateway


Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Empfohlene Beiträge

Hallo Zusammen,

 

hat evtl. einer für BGInfo ein VBScript zur Hand was das "Default Gateway" ohne die Adapter ausliest die den Wert "Null" vorweisen, bin mit VBScript nie so richtig warm geworden und habe bis jetzt nur ein Skript für die IP-Adresse und die DNS Server.

 

PS: Die integrierte WMI Abfrage von BGInfo gibt den Adapter aus der den Wert "0.0.0.0" aufweist. 

 

Anbei die zwei Skripte die ich für die IPv4 Adressen-Abfrage und die DNS-Server verwende.

 

 

Get-IPv4.vbs

strComputer = "."

Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery("Select IPAddress from Win32_NetworkAdapterConfiguration WHERE IPEnabled = 'True'")

For Each IPConfig in IPConfigSet
 If Not IsNull(IPConfig.IPAddress) Then
 For i = LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
  If Not Instr(IPConfig.IPAddress(i), ":") > 0 Then
  strMsg = strMsg & vbtab & IPConfig.IPAddress(i) & vbcrlf
  End If
 Next
 End If
Next

Echo strMsg

Get-DNS.vbs

strComputer = "."

Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery("Select DNSServerSearchOrder from Win32_NetworkAdapterConfiguration WHERE IPEnabled = 'True'")

For Each IPConfig in IPConfigSet
  If Not IsNull(IPConfig.DNSServerSearchOrder) Then
    For i = LBound(IPConfig.DNSServerSearchOrder) to UBound(IPConfig.DNSServerSearchOrder)
      If i = 0 Then
        strMsg = strMsg & IPConfig.DNSServerSearchOrder(i)
      ElseIf i > 0 Then
        strMsg = strMsg & vbcrlf & vbtab & IPConfig.DNSServerSearchOrder(i)
      End If
    Next
  End If
Next

Echo strMsg

Gruß Philipp

Link zu diesem Kommentar

Hallo Tesso,

 

bei dem betroffenen Server habe ich gerade nochmals die BGInfo Version geprüft, 4.21 ist im Einsatz. 

Die Default Abfrage gibt 0.0.0.0 aus und meine angepasste Version das korrekte Gateway jedoch anschließend mit einem Zeilenumbruch.

 

 

BGInfo Default
GW:

 

Ausgabe:
GW: 0.0.0.0

 

 

BGInfo Angepasst

GW:

WMI Query SELECT DefaultIPGateway FROM Win32_NetworkAdapterConfiguration where IPEnabled = 'True'

Ausgabe:
GW: 10.1.1.254

(null)

 

Gruß Philipp

Link zu diesem Kommentar
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Schreibe einen Kommentar

Du kannst jetzt antworten und Dich später registrieren. Falls Du bereits ein Mitglied bist, logge Dich jetzt ein.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung jetzt entfernen

  Only 75 emoji are allowed.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor-Fenster leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

×
×
  • Neu erstellen...