Cambiar Ip de otro equipo

[joseavilesfigueroa]

Hola solicito ayuda para encontrar un codigo visual Basic, para cambiar la ip de un equipo en la red desde otro equipo. Actualmente tengo este codigo pero me marca error 70 en tiempo de ejecucion "Permiso Denegado". En mi propia maquina si cambia la ip, en otra direccion ip de la red marca el error. Sabe alguien del foro como solucionarlo Muchas gracias.

Function CambiaIp()
Dim objWMI As Object, objAdaptador As Object
Dim arrIP As Variant, arrMascara As Variant
Dim arrPuertaEnlace As Variant, arrMetrica As Variant
Dim lngResultado1 As Long, lngResultado2 As Long
Set objWMI = GetObject("winmgmts:\\192.168.0.249\root\cimv2") 'Aqui pongo la Ip del PC a cambiar
arrIP = Array("192.168.0.11") ' Aqui pongo la nueva Ip del Pc al que le quiero cambiar
arrMascara = Array("255.255.255.0")
arrPuertaEnlace = Array("192.168.0.1")
arrMetrica = Array(1)
For Each objAdaptador In objWMI.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
lngResultado1 = objAdaptador.EnableStatic(arrIP, arrMascara)
lngResultado2 = objAdaptador.SetGateways(arrPuertaEnlace, arrMetrica)
If lngResultado1 = 0 And lngResultado2 = 0 Then
Debug.Print "Dirección IP, máscara de subred y puerta de enlace modificadas"
Else
Debug.Print "No se han podido modificar la dirección IP, máscara de subred y puerta de enlace"
End If
Next objAdaptador
Set objWMI = Nothing
End Function

[Nav]

necesitas los permisos a no ser que tengas cuenta de adm de dominio o cuenta de adm local del pc


pruebacon esto

Dim strObject
Dim objLocator, objShare
Dim colShares
strComputer = Txt_Cpu.Text 'ingresa la ip del pc
strUser = Txt_Usu.Text 'usuario administrador
strPassword = Txt_Pas.Text ' clave del adm
Set objLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = objLocator.ConnectServer(strComputer, "root/cimv2", strUser, strPassword)
objWMIService.Security_.impersonationlevel = 3



despues de esto pega tu codigo fuente de consultas y modificacion