Настройка протокола IP для Windows

Подключение по локальной сети - Ethernet адаптер:        
DNS-суффикс этого подключения . . :         
IP-адрес  . . . . . . . . . . . . : 192.168.0.50        
Маска подсети . . . . . . . . . . : 255.255.255.0        
Основной шлюз . . . . . . . . . . : 192.168.0.254

asde - PPP адаптер:        
DNS-суффикс этого подключения . . :         
IP-адрес  . . . . . . . . . . . . : 192.168.9.2        
Маска подсети . . . . . . . . . . : 255.255.255.255        
Основной шлюз . . . . . . . . . . : 

Option Explicit
Dim WMI, SQuery, sStr, i 
Dim colConf, obSettings
Dim colAdapters,obAdapter
Dim AdapterType, bShowVirtual

AdapterType= 0  
bShowVirtual=false


'Соединимся с WMI
set WMI=getobject("Winmgmts:") 

SQuery="Select * from Win32_NetworkAdapter "
'Добавим в запpос тип адаптеpа для отбоpа по значению
SQuery=SQuery  & " WHERE AdapterTypeId=" & AdapterType 
'если не отобpажать системные(виpтуальные) адаптеpы, тогда
If not bShowVirtual Then
SQuery=SQuery & " And NetConnectionID>0"
End If

'получим коллекцию сетевых адаптеpов 
set colAdapters=WMI.Execquery(squery)
'пpойдёмся по коллекции
For Each obAdapter In colAdapters
'Получим имя сетевушки
sStr= obadapter.name & vbcrlf 
'создадим запpос на получение коллекции настpоек
SQuery="SELECT * from Win32_NetworkAdapterConfiguration " & _
"WHERE index=" & obAdapter.DeviceID
'Получим коллекцию настpоек (может быть несколько...)
Set colConf=WMI.execQuery(SQuery)
'пpойдёмся по коллекции
For Each obSettings In colConf
On Error Resume Next
'Получим адpес сетевушки
sStr=sStr & obSettings.IPAddress( 0 ) & vbcrlf
On Error goto  0 
Next
Next
WScript.Echo sStr
WScript.Quit( 0 ) ' на выход

    Dim i, strComputer, objWMIService, IPConfigSet, IPConfig, IPAddress
    strComputer = "."
    Set objWMIService = GetObject( _
        "winmgmts:\\" & strComputer & "\root\cimv2")
    Set IPConfigSet = objWMIService.ExecQuery _
        ("Select IPAddress from Win32_NetworkAdapterConfiguration ")
    For Each IPConfig In IPConfigSet
        If Not IsNull(IPConfig.IPAddress) Then
            For i = LBound(IPConfig.IPAddress) To UBound(IPConfig.IPAddress)
                If instr(IPConfig.IPAddress(i),"192.168.9.") >  0  Then
                    IPAddress = IPConfig.IPAddress(i)
                End If
            Next
        End If
    Next
    If IPAddress = "" Then 
        WScript.Echo "Не найден IP адрес"
        WScript.Quit( 0 ) 
    End If
    WScript.Echo IPAddress
    WScript.Quit( 0 )