[batyaPS]

можно, причем для 2003 это единственный вариант об этом выше писал »

помогите кто нибудь эти скрипты чуть изменить для логон скрипта .
по типу


если IP тачка получает по DHCP то меняем на статический
если имя компа тото то меняем IP на такой то и прописываем маску , днс , шлюз.

такой то IP
такой ТО iP
такоц то Ip

[vitaliyboch]

batyaPS, так надо не просто скрипт скопровать, а заполнить параметры
' Исходные данные
strComputer = "old_ip_address" - текущий IP адрес
sSubnetMask = "old_subnet_mask" - текущая маска сети
sNewIPAddress = "new_ip_address" - новый IP адрес
sWinsSecondaryServer = "second_wins_server" - можно не запонять

Скрипт запускается с компьютера администратора и менят настойки сетевого интерфейса указанного компьютера.

еррор коде : 0 »

означает что ошибок нет!

Вот пример заполнения исходных данных
' Исходные данные
strComputer = "172.31.26.123"
sSubnetMask = "255.255.240.0"
sNewIPAddress = "172.31.26.123"
sWinsSecondaryServer = ""

В данном случае перевожу комп с динамики на статику, поэтому новый и старый адреса одинаковые

[batyaPS]

Вот пример заполнения исходных данных ' Исходные данные strComputer = "172.31.26.123" sSubnetMask = "255.255.240.0" sNewIPAddress = "172.31.26.123" sWinsSecondaryServer = "" »

скрипт отрабатывает . ошибок нет , но в свойствах TCP/IP не чего не меняется .

еще , зависит ли работа скрипта от кол-ва сетевых карт ? и как он определяет на каком интерфейсе менять настройки . ?

[fomin_]

batyaPS,
еще , зависит ли работа скрипта от кол-ва сетевых карт ? и как он определяет на каком интерфейсе менять настройки . ?
Не зависит. Скрипт ищет интерфейс с именем 'Local Area Connection' . Все остальное игнорируется.
Чтобы скрипт определил все подключенные проводные ethernet соединения, нужно заменить в скрипте
set colItems = objWMIService.ExecQuery ("Select * From Win32_NetworkAdapter " & "Where NetConnectionID = " & "'Local Area Connection'")
на
set colItems = objWMIService.ExecQuery ("Select * from Win32_NetworkAdapter Where NetConnectionID Like 'Local%'")
Но это тоже не поможет, тк логика работы скрипта подразумевает, что выбирается макадрес только из последнего экземпляра коллекции colItems:
for each objItem in colItems
strMACAddress = objItem.MACAddress
next
Короче, автору надо подправить скрипт

[vitaliyboch]

еще , зависит ли работа скрипта от кол-ва сетевых карт ? и как он определяет на каком интерфейсе менять настройки . ? »

Не зависит от количества сетевых карт - скрипт поменяет настроки у той карты, у которой совпадет IP с указнааым в исходных данных.

скрипт отрабатывает . ошибок нет , но в свойствах TCP/IP не чего не меняется .

скрипт обязательно должен что-то выдать - либо ошибку с ее кодом, либо ноль - "0". Если этого не произошло, то либо неверные исходные данные, либо Вам не хватает прав для смены настроек.

[batyaPS]

либо ноль - "0" »

0 выдает после выполнения , но на самой тачке не чего не меняется .
Может нужна перезагрузка ?

[fomin_]

По поводу почему после отработки скрипта ничего не меняется.
Скорее всего Вы используете русскую WinXP.
А в ней проводной интерфейс по умолчанию называется "Подключение по локальной сети"
Теперь обратимся к wmi запросу из скрипта:
set colItems = objWMIService.ExecQuery ("Select * From Win32_NetworkAdapter " & "Where NetConnectionID = " & "'Local Area Connection'")
Очевидно, что интерфейса с именем Local Area Connection в русской XP нет, поэтому скрипт не находит интерфейса и завершается, так ничего не изменив.
Чтобы wmi-запрос мог работать и с англ. и с русской XP, поменяйте приведенную строку скрипта на
set colItems = objWMIService.ExecQuery ("Select * From Win32_NetworkAdapter Where NetConnectionID like '%локальной%' or NetConnectionID like 'Local%'")

ЗЫ:
Предполагаю, что исправив эту ошибку, через несколько строк Вы упретесь в следующую.
(Такой уж скрипт!)

[vitaliyboch]

Вот модификация скрипта, но мне кажется, что будут проблемы при удаленной смене конфигурации адаптера, если задать разные значения IP адреса текущего и нового.

Код:

' Целевой компьютер
mComputer = "."
' Новые сетевые параметры задаются конкретными значениями
' Аналогичные параметры задаются значением "The same"
' Пустые парамеры задаются значением ""
mNewIPAddress = "The same"
mNewSubnetMask = "The same"
mNewDNSServer = "The same"
mNewDefaultIPGateway = "The same"
mNewWINSPrimaryServer = "The same"
mNewWINSSecondaryServer = "The same"
' Рабочие массивы
Dim mDNSServerList()
Dim mDefaultIPGatewayList()
Dim mGatewayMetricList()
Dim mNewDNSServerList()
Dim mNewDefaultIPGatewayList()
Dim mNewGatewayMetricList()
' Подключение к пространству имен целевого компьютера
Set mSWbemServices = GetObject("winmgmts:\\" & mComputer & "\Root\CIMv2")
' Получение коллекции адаптеров с указанным IP-адресом
Set mAdapterList = mSWbemServices.ExecQuery ("Select * From Win32_NetworkAdapter")
' Получение MAC-адреса адаптера локального адаптера
For Each mCurrentAdapter In mAdapterList
    If InStr(LCase(mCurrentAdapter.NetConnectionID), "локальн") > 0 _
      Or InStr(LCase(mCurrentAdapter.NetConnectionID), "local") > 0 Then
        mMACAddress = mCurrentAdapter.MACAddress
        mCaption = mCurrentAdapter.Caption
        Exit For
    End If
Next
' Получение коллекции параметров адаптера с указанным MAC-адресом
Set mAdapterConfigList = mSWbemServices.ExecQuery _
  ("Select * From Win32_NetworkAdapterConfiguration WHERE MACAddress = '" _
  & mMACAddress & "'")
' Получение текущих параметров сетевого адаптера с указанным MAC-адресом
For Each mCurrentAdapterConfig In mAdapterConfigList
	' IP-адрес
	If IsNull(mCurrentAdapterConfig.IPAddress) = False Then
        For Each mCurrentIPAddress In mCurrentAdapterConfig.IPAddress
            mIPAddress = mCurrentIPAddress
            Exit For
        Next
    End If
	If mNewIPAddress = "The same" Then mNewIPAddress = mIPAddress
    mNewIPAddressList = Array(mNewIPAddress)
	' Маска подсети
	If IsNull(mCurrentAdapterConfig.IPSubnet) = False Then
        For Each mCurrentIPSubnet In mCurrentAdapterConfig.IPSubnet
            mSubnetMask = mCurrentIPSubnet
            Exit For
        Next
    End If
    If mNewSubnetMask = "The same" Then mNewSubnetMask = mSubnetMask
    mNewSubnetMaskList = Array(mNewSubnetMask)
	' DNS сервера
	If IsNull(mCurrentAdapterConfig.DNSServerSearchOrder) = False Then
        iCounter = 0
        For Each mCurrentDNSServer In mCurrentAdapterConfig.DNSServerSearchOrder
            Redim Preserve mDNSServerList(iCounter)
            mDNSServerList(iCounter) = mCurrentDNSServer
            iCounter = iCounter + 1
        Next
	End If
	If mNewDNSServer = "The same" Then
        For iCounter = 0 To UBound(mDNSServerList)
            Redim Preserve mNewDNSServerList(iCounter)
            mNewDNSServerList(iCounter) = mDNSServerList(iCounter)
        Next
	Else
        For iCounter = 0 To UBound(Split(mNewDNSServer,";"))
            Redim Preserve mNewDNSServerList(iCounter)
            mNewDNSServerList(iCounter) = Split(mNewDNSServer,";")(iCounter)
        Next
	End If
	' Шлюзы
	If IsNull(mCurrentAdapterConfig.DefaultIPGateway) = False Then
        iCounter = 0
        For Each mCurrentDefaultIPGateway In mCurrentAdapterConfig.DefaultIPGateway
            Redim Preserve mDefaultIPGatewayList(iCounter)
            mDefaultIPGatewayList(iCounter) = mCurrentDefaultIPGateway
            Redim Preserve mGatewayMetricList(iCounter)
            mGatewayMetricList(iCounter) = iCounter + 1
            iCounter = iCounter + 1
        Next
	End If
	If mNewDefaultIPGateway = "The same" Then
        For iCounter = 0 To UBound(mDefaultIPGatewayList)
            Redim Preserve mNewDefaultIPGatewayList(iCounter)
            mNewDefaultIPGatewayList(iCounter) = mDefaultIPGatewayList(iCounter)
            Redim Preserve mNewGatewayMetricList(iCounter)
            mNewGatewayMetricList(iCounter) = iCounter + 1
        Next
	Else
        For iCounter = 0 To UBound(Split(mNewDefaultIPGateway,";"))
            Redim Preserve mNewDefaultIPGatewayList(iCounter)
            mNewDefaultIPGatewayList(iCounter) = Split(mNewDefaultIPGateway,";")(iCounter)
            Redim Preserve mNewGatewayMetricList(iCounter)
            mNewGatewayMetricList(iCounter) = iCounter + 1
        Next
	End If
	' WINS сервера
	If IsNull(mCurrentAdapterConfig.WINSPrimaryServer) = False Then
        mWINSPrimaryServer = mCurrentAdapterConfig.WINSPrimaryServer
    End If
	If mNewWINSPrimaryServer = "The same" Then
        If IsNull(mCurrentAdapterConfig.WINSPrimaryServer) = True Then
            mNewWINSPrimaryServer = ""
        Else
            mNewWINSPrimaryServer = mWINSPrimaryServer
        End If
    End If
	If IsNull(mCurrentAdapterConfig.WINSSecondaryServer) = False Then
        mWinsSecondaryServer = mCurrentAdapterConfig.WINSSecondaryServer
	End If
	If mNewWinsSecondaryServer = "The same" Then
        If IsNull(mCurrentAdapterConfig.WINSSecondaryServer) = True Then
            mNewWinsSecondaryServer = ""
        Else
            mNewWinsSecondaryServer = mWINSSecondaryServer
        End If
    End If
	Exit For
Next
' Формирование сообщения по текущей и по будущей конфигурациям сетевого адаптера
mInfoMessage = "Network adapter: " & mCaption & vbCrLf _
  & "MAC address: " & mMACAddress & vbCrLf _
  & "Current configuration:" & vbCrLf _
  & vbTab & "IP address: " & mIPAddress & vbCrLf _
  & vbTab & "Subnet mask: " & mSubnetMask & vbCrLf _
  & vbTab & "Default Gateway: " & Join(mDefaultIPGatewayList,";") & vbCrLf _
  & vbTab & "DNS servers: " & Join(mDNSServerList,";") & vbCrLf _
  & vbTab & "WINS Primary Server: " & mWINSPrimaryServer & vbCrLf _
  & vbTab & "WINS Secondary Server: " & mWINSSecondaryServer & vbCrLf _
  & "New configuration:" & vbCrLf _
  & vbTab & "IP address: " & mNewIPAddress & vbCrLf _
  & vbTab & "Subnet mask: " & mNewSubnetMask & vbCrLf _
  & vbTab & "Default Gateway: " & Join(mNewDefaultIPGatewayList,";") & vbCrLf _
  & vbTab & "DNS servers: " & Join(mNewDNSServerList,";") & vbCrLf _
  & vbTab & "WINS Primary Server: " & mNewWINSPrimaryServer & vbCrLf _
  & vbTab & "WINS Secondary Server: " & mNewWINSSecondaryServer & vbCrLf _
  & vbCrLf & "Please confirm the changes" & mNewWINSSecondaryServer & vbCrLf
' Окно подтверждения изменения настроек сетевого параметра
mChangeFlag = MsgBox(mInfoMessage, vbOKCancel, "Network card settings change")
If mChangeFlag = vbOK Then
    ' Установка нового IP адреса
    For Each mCurrentAdapterConfig in mAdapterConfigList
        errEnable = mCurrentAdapterConfig.EnableStatic _
          (mNewIPAddressList, mNewSubnetMaskList)
        errGateways = mCurrentAdapterConfig.SetGateways _
          (mNewDefaultIPGatewayList, mNewGatewayMetricList)
        errWINS = mCurrentAdapterConfig.SetWINSServer _
          (mNewWINSPrimaryServer, mNewWinsSecondaryServer)
        errDNS = mCurrentAdapterConfig.SetDNSServerSearchOrder _
          (mNewDNSServerList)
        Exit For
    Next
    ' Pезультат операции
    mInfoMessage = "Operation result:" & vbCrLf _
      & "IP address error code: " & errEnable & vbCrLf _
      & "Gateway error code: " & errGateways & vbCrLf _
      & "DNS error code: " & errDNS & vbCrLf _
      & "WINS error code: " & errWINS & vbCrLf
Else
    mInfoMessage = "The operation is canceled"
End If
Wscript.Echo(mInfoMessage)

[vitaliyboch]

Как я и предполагал, существует проблема при смене IP адреса на компьютере из другого филиала. Текущий скрипт сначала меняет IP, а потом прописывает остальные параметры, но компьютер становится уже недоступен - нет верных настроек шлюза. Если изменить порядок внесения параметров и менять IP только после смены DNS серверов и шлюза, то шлюз оказывается пустым для статических параметров! Он почему-то прописывается в динамические характеристики.
Кто знает как обойти эту проблему?
В этой части кода изменен порядок внесения параметров

Код:

------
        errGateways = mCurrentAdapterConfig.SetGateways _
          (mNewDefaultIPGatewayList, mNewGatewayMetricList)
        errWINS = mCurrentAdapterConfig.SetWINSServer _
          (mNewWINSPrimaryServer, mNewWinsSecondaryServer)
        errDNS = mCurrentAdapterConfig.SetDNSServerSearchOrder _
          (mNewDNSServerList)
        errEnable = mCurrentAdapterConfig.EnableStatic _
          (mNewIPAddressList, mNewSubnetMaskList)
-------