none
Scripts con IPv6 RRS feed

  • Pregunta

  • He hecho en varias ocasiones cambios de configuración de las direcciones IP con IPv4 en vbs con WMI.

    Me gustaria saber como se podria hacer esto con IPv6.

    Os pongo un ejemplo de un script que configura una tarjeta de red con IPv4 y dirección IP estática.

    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

    Set colNetAdapters = objWMIService.ExecQuery _
        ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

    strIPAddress = Array("192.168.1.141")
    strSubnetMask = Array("255.255.255.0")
    strGateway = Array("192.168.1.100")
    strGatewayMetric = Array(1)

    ForEach objNetAdapterin colNetAdapters
        errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
        errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
        If errEnable = 0Then
            WScript.Echo"La dirección IP ha sido cambiada."
        Else
            WScript.Echo"La dirección IP no se pudo cambiar."
        EndIf
    Next

    viernes, 10 de junio de 2011 10:07

Respuestas