Определение Default Gateway

[Danger_Man]

Всем привет!

Подскажите, плиз, как в VB определить основной шлюз (то есть тот, который пишется при команде Route print)

Заранее спасибо за ответ.

[Sebas]

WMI класс Win32_NetworkConfiguration

[Danger_Man]

WMI класс Win32_NetworkConfiguration

Можно для тех, кто на бронепоезде?))))

я в этом не оч. силен....

P.S.: спасибо за оперативность

[Sebas]

пожал..

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration")
For Each objItem in colItems
Wscript.Echo "ARP Always Source Route: " & objItem.ArpAlwaysSourceRoute
Wscript.Echo "ARP Use EtherSNAP: " & objItem.ArpUseEtherSNAP
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "Database Path: " & objItem.DatabasePath
Wscript.Echo "Dead GW Detection Enabled: " & objItem.DeadGWDetectEnabled
Wscript.Echo "Default IP Gateway: " & objItem.DefaultIPGateway
Wscript.Echo "Default TOS: " & objItem.DefaultTOS
Wscript.Echo "Default TTL: " & objItem.DefaultTTL
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "DHCP Enabled: " & objItem.DHCPEnabled
Wscript.Echo "DHCP Lease Expires: " & objItem.DHCPLeaseExpires
Wscript.Echo "DHCP Lease Obtained: " & objItem.DHCPLeaseObtained
Wscript.Echo "DHCP Server: " & objItem.DHCPServer
Wscript.Echo "DNS Domain: " & objItem.DNSDomain
Wscript.Echo "DNS Domain Suffix Search Order: " & _
objItem.DNSDomainSuffixSearchOrder
Wscript.Echo "DNS Enabled For WINS Resolution: " & _
objItem.DNSEnabledForWINSResolution
Wscript.Echo "DNS Host Name: " & objItem.DNSHostName
Wscript.Echo "DNS Server Search Order: " & objItem.DNSServerSearchOrder
Wscript.Echo "Domain DNS Registration Enabled: " & _
objItem.DomainDNSRegistrationEnabled
Wscript.Echo "Forward Buffer Memory: " & objItem.ForwardBufferMemory
Wscript.Echo "Full DNS Registration Enabled: " & _
objItem.FullDNSRegistrationEnabled
Wscript.Echo "Gateway Cost Metric: " & objItem.GatewayCostMetric
Wscript.Echo "IGMP Level: " & objItem.IGMPLevel
Wscript.Echo "Index: " & objItem.Index
Wscript.Echo "IP Address: " & objItem.IPAddress
Wscript.Echo "IP Connection Metric: " & objItem.IPConnectionMetric
Wscript.Echo "IP Enabled: " & objItem.IPEnabled
Wscript.Echo "IP Filter Security Enabled: " & _
objItem.IPFilterSecurityEnabled
Wscript.Echo "IP Port Security Enabled: " & _
objItem.IPPortSecurityEnabled
Wscript.Echo "IPSec Permit IP Protocols: " & _
objItem.IPSecPermitIPProtocols
Wscript.Echo "IPSec Permit TCP Ports: " & objItem.IPSecPermitTCPPorts
Wscript.Echo "IPSec Permit UDP Ports: " & objItem.IPSecPermitUDPPorts
Wscript.Echo "IP Subnet: " & objItem.IPSubnet
Wscript.Echo "IP Use Zero Broadcast: " & objItem.IPUseZeroBroadcast
Wscript.Echo "IPX Address: " & objItem.IPXAddress
Wscript.Echo "IPX Enabled: " & objItem.IPXEnabled
Wscript.Echo "IPX Frame Type: " & objItem.IPXFrameType
Wscript.Echo "IPX Media Type: " & objItem.IPXMediaType
Wscript.Echo "IPX Network Number: " & objItem.IPXNetworkNumber
Wscript.Echo "IPX Virtual Net Number: " & objItem.IPXVirtualNetNumber
Wscript.Echo "Keep Alive Interval: " & objItem.KeepAliveInterval
Wscript.Echo "Keep Alive Time: " & objItem.KeepAliveTime
Wscript.Echo "MAC Address: " & objItem.MACAddress
Wscript.Echo "MTU: " & objItem.MTU
Wscript.Echo "Number of Forward Packets: " & objItem.NumForwardPackets
Wscript.Echo "PMTUBH Detect Enabled: " & objItem.PMTUBHDetectEnabled
Wscript.Echo "PMTU Discovery Enabled: " & objItem.PMTUDiscoveryEnabled
Wscript.Echo "Service Name: " & objItem.ServiceName
Wscript.Echo "Setting ID: " & objItem.SettingID
Wscript.Echo "TCPIP Netbios Options: " & objItem.TcpipNetbiosOptions
Wscript.Echo "TCP Maximum Connect Retransmissions: " & _
objItem.TcpMaxConnectRetransmissions
Wscript.Echo "TCP Maximum Data Retransmissions: " & _
objItem.TcpMaxDataRetransmissions
Wscript.Echo "TCP NumC onnections: " & objItem.TcpNumConnections
Wscript.Echo "TCP Use RFC1122 Urgent Pointer: " & _
objItem.TcpUseRFC1122UrgentPointer
Wscript.Echo "TCP Window Size: " & objItem.TcpWindowSize
Wscript.Echo "WINS Enable LMHosts Lookup: " & _
objItem.WINSEnableLMHostsLookup
Wscript.Echo "WINS Host Lookup File: " & objItem.WINSHostLookupFile
Wscript.Echo "WINS Primary Server: " & objItem.WINSPrimaryServer
Wscript.Echo "WINS Scope ID: " & objItem.WINSScopeID
Wscript.Echo "WINS Secondary Server: " & objItem.WINSSecondaryServer
Next

[Danger_Man]

брррр......
и куда все это?

сорри за ламерские вопросы - я только базами баловался на VB)))

[Sebas]

Это

Wscript.Echo

замени на

Debug.Print


ЗЫ: А куда можно код вставлять вообще?

[Danger_Man]

Это

Wscript.Echo

замени на

Debug.Print


ЗЫ: А куда можно код вставлять вообще?

создал модуль, туда вставил.
при запуске ошибка в первой строке - (".")
invalid outside procedure

не сильно тебя замучал?

[Konst_One]

Sebas ты уж извини, я отвечу, а то видно не отстанет

[Danger_Man]

Sebas ты уж извини, я отвечу, а то видно не отстанет

Все, конечно, хорошо
только не IP не шлюзы не выводит

[Konst_One]

все нормально выводит
у тебя служба Windows Management Instrumentation включена?

[Sebas]

Sebas ты уж извини, я отвечу, а то видно не отстанет

Все, конечно, хорошо
только не IP не шлюзы не выводит

потому как надо On Error убрать - ошибочка то и вылетит...
а адрес у нас... не стринг а массивчик...

[Danger_Man]

Sebas ты уж извини, я отвечу, а то видно не отстанет

Все, конечно, хорошо
только не IP не шлюзы не выводит

потому как надо On Error убрать - ошибочка то и вылетит...
а адрес у нас... не стринг а массивчик...

Включена. Не определяет.
а что там с массивом?

[Konst_One]

вот , что значит невнимательность

[Danger_Man]

Отлично. Огромное спасибо.

Если не тяжело - еще поможете?

чтобы не вызывать командную строку для добавления нового маршрута и удаления старого - как это сделать средствами VB?

Необходимо следующее (в командной строке это делается так):
route add 65.109.239.29 определенный_шлюз
route delete 0.0.0.0
Больше никакие параметры не нужны (т.е. маски, метрики, и т.д.)

[Sebas]

отвечу в четверг, улетаюю...

[Konst_One]

можно все это вызвать с помощью команды Shell (или ShellExecute), можно и через WMI , но я этим способом не пользовался - жди Sebasa

[alibek]

http://msdn.microsoft.com/library/defau ... ovider.asp

[Danger_Man]

можно все это вызвать с помощью команды Shell (или ShellExecute), можно и через WMI , но я этим способом не пользовался - жди Sebasa

хотелось бы от shell наоборот уйти