мой скриптик
ищет среди сетевых карт на компе абонента правилный мак-адрес и адаптеру с правилным мак адресом присваивает ип и прочая
список ип-адресов в секции case по аналогии.
Отличие- вообще ничего абоненту вводить и выбирать не надо)
On Error Resume Next
Dim objWMIService
Dim objNetAdapter
Dim strComputer
Dim strGateway
Dim strGatewayMetric
Dim strAddress
Dim strIPAddress
Dim strSubnetMask
Dim colNetAdapters
Dim errEnable
Dim errGateways
Dim objShell
Dim intValue
Dim Button
Dim arrNewDNSServerSearchOrder
Dim colNicConfigs
Dim objNicConfig
Dim strDNSServer
Dim intSetDN
