Установить IP-адрес на основе имени пользователя

Question

Итак, у меня есть скрипт из моей старой установки XP, который устанавливает IP-адрес в зависимости от имени пользователя. Вот сценарий:

'Get Username
set objNetwork = wscript.CreateObject("wscritp.network")
User=objNetwork.Username


'Set IP address based on username
Select Case User
    Case "user1"
        arrIPAddress = Array("192.168.1.9")
    Case "user2"
        arrIPAddress = Array("192.168.1.10")
    Case "user3"
        arrIPAddress = Array("192.168.1.11")
    Case "user4"
        arrIPAddress = Array("192.168.1.12")
    Case "user5"
        arrIPAddress = Array("192.168.1.13")
End Select

'non-changing values
arrSubnetMask = Array("255.255.255.0")
'arrGateway = Array("192.168.1.1")    
'arrGatewayMetric = Array(1)

'Below obtained from MSDN site WMI Tasks: Networking, slightly modified
strComputer = "."
setobjWMIService = GetObject _
    ("winmgmts:\\ " & strComputer & "\root\cimv2")

set colNetAdapters = objWMIService.ExecQuery _
    ("select * from Win32_NetworkAdapterConfiguration where ipenabled = rue")

for each objNetAdapter in colNetAdapters
    errEnable = objNetAdapter.EnableStatic(arrIPAddress, arrSubnetMask)

Next

set ipconfigset = objwmiservice.execquery _
    ("select IPAddress from Win32_NetworkAdapterConfiguration where ipenabled = true")

for each ipconfig in ipconfigset
    if not isnull(ipconfig.ipaddress) then
        for i=lbound(ipconfig.ipaddress) _
            to unbound(ipconfig.ipaddress)
                wscript.echo "Logged in as " & User & ", IP Address: " & ipconfig.ipaddress(i)

        next
    end if
next

Этот скрипт работает на 100% на компьютере с XP. Однако всякий раз, когда я перемещаю его в Windows 7, он вообще ничего не делает. Я поместил его в папку iplogon для групповой политики, а также в папку автозагрузки. Было ли значительное изменение синтаксиса между XP и 7?

Answer 1

Вполне возможно, что синтаксис мог быть существенно изменен. Вы должны помнить, что Windows 7 принесла много изменений с точки зрения скорости. Посмотрите на ваши журналы ошибок, чтобы увидеть, насколько хорошо работает скрипт, и если он, кажется, что-то не замечает или выполняет другую команду, то это проблема. Кроме того, я вспоминаю много «обновлений», относящихся к фактическим командам сетевого подключения, однако, это может быть только моя установка.