Mensajes

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"

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

Dices que ponga eso aquí?

Código (vb) [Seleccionar] Expandir

   
For Each objOperatingSystem in colOperatingSystems
ObjOperatingSystem.Win32Shutdown(1)
Next


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 (vb) [Seleccionar] Expandir


Dim sUser, sPassword
'set remote credentials
sUser = "adm"
sPassword = "***"

'Establecemos control de errores
On Error Resume Next

'get WMI locator
Set oLocator = CreateObject("WbemScripting.SWbemLocator")
'Connect to remote WMI
Set oConnection = oLocator.ConnectServer(StrEquipo, "\root\cimv2", sUser, sPassword)

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate,(Shutdown)}!\\" & StrEquipo  & oConnection)
   
Set colOperatingSystems = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")
   For Each objOperatingSystem in colOperatingSystems
ObjOperatingSystem.Win32Shutdown(1)
   Next



[MOD: No hacer doble post.]

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.

Vale voy a probarlo,y muchas gracias por tu ayuda y tu tiempo

Hola!
He estado mirando otra vez y poniendo los codigos que me pasaste y nada.

Código (vb) [Seleccionar] Expandir


If responde_al_ping(StrEquipo) then
'Fichero Log que almacena los Equipos que se van apagando
For Each obj In ou
objConsulta_PING2.WriteLine (StrEquipo & TabStop & obj.managedby & " " & "SIIIIII PING")
Next

 For Each obj In ou
       If obj.managedby <> "" Then '<- Si obj.managedby  es distinto de nada
        Dim sN()
        sN = Split(obj.managedby, ",")
        sN = Split(sN(0), "=")

           objConsulta_PING2.WriteLine (StrEquipo & TabStop & UCase(sN(1)) & " " & "Hace PING" & vbNewLine)
       End If
   Next
else
   objConsulta_PING2.WriteLine StrEquipo & TabStop & " No se ha podido apagar"
end if
Loop


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

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 (vb) [Seleccionar] Expandir


If responde_al_ping(StrEquipo) then
  For Each obj In ou
        If obj.managedby <> "" Then '<- Si obj.managedby  es distinto de nada
         Dim sN()
         sN = Split(obj.managedby, ",")
         sN = Split(sN(0), "=")

            objConsulta_PING2.WriteLine (StrEquipo & TabStop & UCase(sN(1)) _
            & " " & _
            "Hace PING" & vbNewLine)
        End If
    Next
else
    objConsulta_PING2.WriteLine StrEquipo & TabStop & " No se ha podido apagar"
end if
Loop



Cierto, así es.
Y quiero que me saque únicamente "paloma"