[amel27]

1. можно через реестр, но потребуется перезагрузка:

Код:

Const HKEY_LOCAL_MACHINE = &H80000002

strComputer = "."
strMACAddr  = "001E0B3D3F0B"
strKeyPath  = "SYSTEM\CurrentControlSet\Control\Class\{4D36E972-E325-11CE-BFC1-08002bE10318}"

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set objReg=GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")

Set colNetCards = objWMIService.ExecQuery( _
    "Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")

For Each objNetCard in colNetCards
    strSettingID = objNetCard.SettingID
    If Len(strSettingID)=38 Then Exit For
Next

objReg.EnumKey HKEY_LOCAL_MACHINE,strKeyPath,arrSubKeys

For Each SubKey In arrSubKeys
    objReg.GetStringValue HKEY_LOCAL_MACHINE, _
      strKeyPath & "\" & SubKey, "NetCfgInstanceId", strValue
    If Not(IsNull(strValue)) And strValue = strSettingID Then
        objReg.SetStringValue HKEY_LOCAL_MACHINE, _
          strKeyPath & "\" & SubKey, "NetworkAddress", strNewMACAddr
        Exit For
    End If
Next

2. аналогично (вместо точки подставить имя компьютера):

Код:

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetCards = objWMIService.ExecQuery( _
    "Select IPAddress From Win32_NetworkAdapterConfiguration Where IPEnabled = True")

For Each objNetCard in colNetCards
    strIPAddress = objNetCard.IPAddress(0)
Next

WScript.Echo strIPAddress