http://dieseyer.de • all rights reserved • © 2011 v11.4

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

http://dieseyer.de • all rights reserved • © 2011 v11.4