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

 

 


Tema destacado: Usando Git para manipular el directorio de trabajo, el índice y commits (segunda parte)


  Mostrar Mensajes
Páginas: [1] 2 3
1  Sistemas Operativos / Windows / Maquina virtual- Aumentar memora RAM Error en: 21 Enero 2017, 20:32 pm
Hola, estoy intentando instalar el vCenter Server 6.0 en un Windows Server 2008 R2, pero como requisito necesito 8GB de memoria RAM, y mi maquina virtual tiene 4GB.
Le aumento la memoria pero al iniciar la maquina me sale este error:
"not enough physical memory is available to power on this virtual machine"

2  Sistemas Operativos / Windows / Virtualizacion Windows 10 en: 2 Enero 2017, 17:47 pm
Hola, estoy intentando crear maquinas virtuales con VMWare, pero no me deja porque no esta activada esa opción en la BIOS.
Otras veces me ha pasado con otros ordenadores, y he entrado en la BIOS y lo he activado, pero en este ordenador no me sale esa posibilidad.
En la opción de Seguridad solo me sale para cambiar la contraseña.
También he activado la característica de Windows de Hyper-V
Tengo un Intel Core duo.
Sabeis como lo puedo hacer?
Gracias
3  Programación / Programación Visual Basic / Re: ConnectServer Apagar equipos remotamente en: 27 Octubre 2016, 20:39 pm
Dices que ponga eso aquí?
Código
  1.  
  2. For Each objOperatingSystem in colOperatingSystems
  3. ObjOperatingSystem.Win32Shutdown(1)
  4. Next
  5.  
4  Programación / Programación Visual Basic / ConnectServer Apagar equipos remotamente en: 25 Octubre 2016, 20:31 pm
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.  
5  Programación / Programación Visual Basic / script con runas en: 20 Octubre 2016, 19:19 pm
Hola.
Tengo realizado un script, pero para poder ejecutarse hay que ser administrador del equipo.
Quiero crear otro script donde poner runas con usuario y passwd.
Es posible poner la passwd también en el script?
Es que he estado buscando información pero no he encontrado nada.
Gracias.

Tambien he estado leyendo que no es posible ejecutarlo desde el cmd con runas dado que no tiene extension .exe y no es una aplicación Win32 válida.

MOD: No hacer doble post.
6  Programación / Programación Visual Basic / Re: Campo managedby sin CN en: 19 Octubre 2016, 20:51 pm
Vale voy a probarlo,y muchas gracias por tu ayuda y tu tiempo
7  Programación / Programación Visual Basic / Re: Campo managedby sin CN en: 19 Octubre 2016, 19:48 pm
Hola!
He estado mirando otra vez y poniendo los codigos que me pasaste y nada.
8  Programación / Programación Visual Basic / Re: Campo managedby sin CN en: 18 Octubre 2016, 23:37 pm
Código
  1. If responde_al_ping(StrEquipo) then
  2. 'Fichero Log que almacena los Equipos que se van apagando
  3. For Each obj In ou
  4. objConsulta_PING2.WriteLine (StrEquipo & TabStop & obj.managedby & " " & "SIIIIII PING")
  5. Next
  6.  
  7.  For Each obj In ou
  8.        If obj.managedby <> "" Then '<- Si obj.managedby  es distinto de nada
  9.         Dim sN()
  10.         sN = Split(obj.managedby, ",")
  11.         sN = Split(sN(0), "=")
  12.  
  13.            objConsulta_PING2.WriteLine (StrEquipo & TabStop & UCase(sN(1)) & " " & "Hace PING" & vbNewLine)
  14.        End If
  15.    Next
  16. else
  17.    objConsulta_PING2.WriteLine StrEquipo & TabStop & " No se ha podido apagar"
  18. end if
  19. Loop
  20.  

Me saca esto directamente:
MIO   CN=paloma,CN=Users,DC=palo,DC=age SIIIIII PING
MIO   CN=Dani Alejo,CN=Users,DC=palo,DC=age SIIIIII PING
MIO   CN=Dani Alejo,CN=Users,DC=palo,DC=age SIIIIII PING
MIO1    No se ha podido apagar
MIO2    No se ha podido apagar



Ves? No hace ni siquiera tu codigo





9  Programación / Programación Visual Basic / Re: Campo managedby sin CN en: 18 Octubre 2016, 23:33 pm
Lo he probado, pero es que directamente si lo meto donde el IF, no me saca ni siquiera ningún equipo al que hace PING...
Y si lo dejo como estaba, si que me saca todo pero con el CN=....

Código
  1. If responde_al_ping(StrEquipo) then
  2.  For Each obj In ou
  3.        If obj.managedby <> "" Then '<- Si obj.managedby  es distinto de nada
  4.         Dim sN()
  5.         sN = Split(obj.managedby, ",")
  6.         sN = Split(sN(0), "=")
  7.  
  8.            objConsulta_PING2.WriteLine (StrEquipo & TabStop & UCase(sN(1)) _
  9.            & " " & _
  10.            "Hace PING" & vbNewLine)
  11.        End If
  12.    Next
  13. else
  14.    objConsulta_PING2.WriteLine StrEquipo & TabStop & " No se ha podido apagar"
  15. end if
  16. Loop
  17.  
  18.  
10  Programación / Programación Visual Basic / Re: Campo managedby sin CN en: 18 Octubre 2016, 23:19 pm
Cierto, así es.
Y quiero que me saque únicamente "paloma"
Páginas: [1] 2 3
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines