11/06/2009, 11:34
|
| | | Fecha de Ingreso: febrero-2007
Mensajes: 8
Antigüedad: 18 años, 2 meses Puntos: 0 | |
| Respuesta: Cambiar Ip de otro equipo
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 |