'*** 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 )