elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


 


Tema destacado: 4n4lDetector v1.3: herramienta de análisis estático de malware


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | |-+  ConnectServer Apagar equipos remotamente
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: ConnectServer Apagar equipos remotamente  (Leído 579 veces)
palophp

Desconectado Desconectado

Mensajes: 23


Ver Perfil
ConnectServer Apagar equipos remotamente
« en: 25 Octubre 2016, 20:31 »

Hola.
Estoy realizando un script para apagar los equipos de un dominio, pero no se me apagan ni metiendo las credenciales del administrador de cada equipo.
Utilizo la sentencia ConnectServer pero no hay tu tia.
Alguien me ayuda?

Este es el codigo, pero no me hace nada:
Código
  1. Dim sUser, sPassword
  2. 'set remote credentials
  3. sUser = "adm"
  4. sPassword = "***"
  5.  
  6. 'Establecemos control de errores
  7. On Error Resume Next
  8.  
  9. 'get WMI locator
  10. Set oLocator = CreateObject("WbemScripting.SWbemLocator")
  11. 'Connect to remote WMI
  12. Set oConnection = oLocator.ConnectServer(StrEquipo, "\root\cimv2", sUser, sPassword)
  13.  
  14. Set objWMIService = GetObject("winmgmts:" _
  15. & "{impersonationLevel=impersonate,(Shutdown)}!\\" & StrEquipo  & oConnection)
  16.  
  17. Set colOperatingSystems = objWMIService.ExecQuery _
  18. ("Select * from Win32_OperatingSystem")
  19.    For Each objOperatingSystem in colOperatingSystems
  20. ObjOperatingSystem.Win32Shutdown(1)
  21.    Next
  22.  
  23.  


En línea

Miseryk

Desconectado Desconectado

Mensajes: 212


SI.NU.SA U.GU.DE (2NE1 - D-Unit)


Ver Perfil
Re: ConnectServer Apagar equipos remotamente
« Respuesta #1 en: 27 Octubre 2016, 19:14 »

Hola.
Estoy realizando un script para apagar los equipos de un dominio, pero no se me apagan ni metiendo las credenciales del administrador de cada equipo.
Utilizo la sentencia ConnectServer pero no hay tu tia.
Alguien me ayuda?

Este es el codigo, pero no me hace nada:
Código
  1. Dim sUser, sPassword
  2. 'set remote credentials
  3. sUser = "adm"
  4. sPassword = "***"
  5.  
  6. 'Establecemos control de errores
  7. On Error Resume Next
  8.  
  9. 'get WMI locator
  10. Set oLocator = CreateObject("WbemScripting.SWbemLocator")
  11. 'Connect to remote WMI
  12. Set oConnection = oLocator.ConnectServer(StrEquipo, "\root\cimv2", sUser, sPassword)
  13.  
  14. Set objWMIService = GetObject("winmgmts:" _
  15. & "{impersonationLevel=impersonate,(Shutdown)}!\\" & StrEquipo  & oConnection)
  16.  
  17. Set colOperatingSystems = objWMIService.ExecQuery _
  18. ("Select * from Win32_OperatingSystem")
  19.    For Each objOperatingSystem in colOperatingSystems
  20. ObjOperatingSystem.Win32Shutdown(1)
  21.    Next
  22.  
  23.  

Fijate con el shutdown de windows, le podés pasar -m \\PC con user y pass


En línea

Can you see it?
The worst is over
The monsters in my head are scared of love
Fallen people listen up! It’s never too late to change our luck
So, don’t let them steal your light
Don’t let them break your stride
There is light on the other side
And you’ll see all the raindrops falling behind
Make it out tonight
it’s a revolution

CL!!!
palophp

Desconectado Desconectado

Mensajes: 23


Ver Perfil
Re: ConnectServer Apagar equipos remotamente
« Respuesta #2 en: 27 Octubre 2016, 20:39 »

Dices que ponga eso aquí?
Código
  1.  
  2. For Each objOperatingSystem in colOperatingSystems
  3. ObjOperatingSystem.Win32Shutdown(1)
  4. Next
  5.  
En línea

DelKoS

Desconectado Desconectado

Mensajes: 23



Ver Perfil
Re:
« Respuesta #3 en: 27 Octubre 2016, 21:43 »

Hola.

Lo que te dice el compi es que shutdown es una intrucción propia del sistema operativo.

Abre una shell (simbolo de sistema) y ejecuta el comando con el parametro de ayuda para que veas lo que mejor te conviene, pero como él te ha dicho con el parametro /m \\equipo te vale, y con ella una cuenta que tenga permisos para realizar la acción, sea local o de dominio.

Juega primero con ella antes de implementarlo en tu script.


S2
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
QUIERO APAGAR LAS PC REMOTAMENTE DESDE VISUAL BASIC « 1 2 3 »
Programación Visual Basic
darwal44 24 14,392 Último mensaje 19 Agosto 2006, 02:53
por Castord
....Apagar y Prender un PC remotamente con la dirección mac....
Hacking Básico
J-SLIM 8 5,154 Último mensaje 13 Septiembre 2006, 00:34
por hernanlp83
Encender y apagar remotamente
Windows
Ragnarok 8 3,517 Último mensaje 22 Junio 2007, 10:38
por R41N-W4R3
Apagar PC remotamente
Hacking Básico
Sparlan 2 2,006 Último mensaje 19 Febrero 2008, 23:37
por Sparlan
Batch avanzado para apagar PCs en red remotamente
Scripting
Issiana 4 5,209 Último mensaje 18 Octubre 2011, 03:23
por the_Avenger
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines