Definir endereço IP com base no nome de usuário

Question

Portanto, eu tenho um script da minha antiga instalação do XP que define o endereço IP com base no nome de usuário. Aqui está o script:

'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

Este script funciona 100% em uma máquina XP. No entanto, sempre que eu movê-lo para o Windows 7, ele não faz nada. Eu coloquei na pasta iplogon para política de grupo, bem como a pasta de inicialização. Houve uma grande mudança de sintaxe entre XP e 7?

    

Answer 1

É bem possível que a sintaxe tenha sido mudada de maneira significativa. Você tem que lembrar que o Windows 7 trouxe muitas mudanças em termos de velocidade. Dê uma olhada nos seus logs de erro para ver o quão bem o script é executado e, se parecer não notar algo ou executar um comando diferente, esse é o problema. Além disso, lembro-me de um monte de 'atualizações' relativas aos comandos de conexão de rede, no entanto, isso pode ser apenas o meu equipamento.