'*** v10.5 *** www.dieseyer.de ***************************** 

' 

' Datei:  AAAAA.vbs 

' Autor:  dieseyer@gmx.de 

' Auf:    www.dieseyer.de 

' 

' Liest das Verbindungsspez. DNS-Suffix, der normalerweise 

' per DHCP auf dem Client gesetzt wird. 

' 

'*********************************************************** 

 

Option Explicit ' Siehe http://dieseyer.de/dse-wsh-lernen.html#OptionExpl 

 

MsgBox "Verbindungsspez. DNS-Suffix: " & DNSTesten( "." ), vbInformation, WScript.ScriptName 

 

WScript.Quit 

 

'*** v10.5 *** www.dieseyer.de ***************************** 

Function DNSTesten( PC ) 

'*********************************************************** 

' Liest das Verbindungsspez. DNS-Suffix, der normalerweise 

' per DHCP auf dem Client gesetzt wird. 

 

  Dim objWMIService, colAdapters, objAdapter 

 

  Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & PC & "\root\cimv2") 

  Set colAdapters = objWMIService.ExecQuery ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True") 

  For Each objAdapter in colAdapters 

	If IsNull( objAdapter.DNSDomain ) = 0 Then DNSTesten = objAdapter.DNSDomain : Exit For 

  Next 

 

End Function ' DNSTesten( PC )