...¿Que esperabas?.

En este foro no se da soporte a Windows modificados, precisamente porque les eliminan varias características que en algunos casos (como el tuyo) imposibilitan la instalación o el buen uso del SO en general.

¿Soluciones?:

1. Descarga e instala la ISO de Windows original (sin modificar).
2. Haz tu propio Windows reducido (no es muy complicado).
3. Sigue probando a descargarte otros Windows modificados hasta que tengas suerte y uno te funcione...

PD: Ediciones oficiales de Windows 7 con SP1 integrado

Saludos

El activador de KMSPICO se distribuye en un instalador silencioso creado con InnoSetup, entonces se puede activar Windows de forma automatizada.

http://forums.mydigitallife.info/threads/49108-KMSpico-Official-Thread

También puedes desempaquetar el contenido del instalador para integrar la activación en la imagen montada de Windows 'install.wim' (que es lo que yo hago), aunque basicamente es lo mismo, pero si te gusta experimentar... debes saber como manejar el 'HIVE' (el archivo que contiene todas las claves por defecto del registro del usuario de Windows), como reproducir el servicio que instala KMSPICO, y como añadir una tarea preconfigurada en el programador de tareas de Windows (C:\Windows\Tasks\archivo .job).

Sobre las actualizaciones... nunca le he dado importancia a esas leyendas urbanas, he llegado a instalar e instalar en diferentes Windows actualizaciones que se supone que te rompen la activación, pero nunca me ha pasado nada de eso que otros muchos comentan, asi que no se que decirte, supongo que también dependerá de la calidad del activador que se use (yo usaba el Loader de DAZ).

Además, los autores del Activador KMSPICO, en el 'FAQ', dicen que por el momento se puede instalar cualquier actualización de Windows despues de la activación (en Windows Vista/7/8/8.1), así que espero que eso te aclare aún más tu duda.


Mi ISO privada de Windows 8.1 tarda alrededor de 70 minutos para terminar la instalación en una buena máquina, ¿porque?, porque la imagen de Windows (sobretodo la carpeta WinSXS) la reducí metodicamente eliminando archivos, backups y características que no necesito para nada (en total unos 2 GB a la ISO comprimida, y 6 GB a la instalación final), y eso me permite integrar todos los drivers, librerías, codecs, y software que necesito, software que previamente ya tengo empaquetado/comprimido al máximo con InnoSetup para que se instale de forma silenciosa.
El Software también lo puedes integrar a la imagen de Windows (install.wim) para no tener que instalar nada despues de haber instalado windows... pero yo no lo hago porque es un coñazo (el tiempo que hay que invertir) y siemrpe va a haber que actualizar el software en el futuro.

En fin, se puede hacer bien, con tiempo y ganas.

PD: Ni DISM, ni WADK/WAIK son necesarios si usas Win7Toolkit ...es un AIO

PD2: Dentro de poco postearé un mini tutorial sobre el método propio para reducir Windows 8.1 x64 (solo Windows 8.1 x64), y compartiré todo lo que empleo yo mismo, tanto para reducir como para customizar la imagen final, creo que te interesará mucho.

Saludos!

Zorronde, disculpa pero ya tienes mucha experiencia en el foro... deberías saber que un post formulado de una manera tan poco descriptiva no se merece ni una sola respuesta.

No somos magos, no sabemos que (ni cuales) son para ti "las actualizaciones de Microsoft", ni tampoco "no puedo instalar".

Si realmente esperas poder recibir algun tipo de ayuda entonces deberías describir todos los detalles del problema de instalación que tengas, y las actualizaciones que hayas instalado.
Eso va por este y todos los demás posts, que ya cansa un poco ver siempre la misma escasez de información por tu parte, sin ánimo de ofender.

De todas formas:


Instalate el SP1 y prueba de nuevo

Saludos

Lo que quiere el usuario es grabar un DVD de instalación de Windows ¿7? que automáticamente instale todas las actualizaciones que ha ido descargando desde Windows update, y eso, SI QUE SE PUEDE HACER, ahora, has de tener un mínimo de conocimientos para utilizar las herramientas necesarias, no se te puede decir el modo de hacerlo 'en 2 clicks'.

( Los preeliminares me los voy a saltar, porque como ya digo, hay que tene run mínimo de conocimientos, y puedes buscar tutoriales en Google sobre lo que voy a comentar )

Basicamente tienes que montar la imagen de instalación del DVD de Windows (Install.wim) correspondiente a la edición de Windows que quieres instalar (Normal, profesional, etc) para así expandir los archivos originales de instalación del DVD, e integrar las actualizaciones que desees en la imagen montada, luego la desmontas y te has de asegurar de aplicar los cambios al desmontar la imagen, y por último solo te quedaría quemar la ISO.

Es algo que se puede hacer de forma manual (por linea de comandos) con la herramienta 'DISM' que ya viene incluida en Windows, pero deberías usar la versión específica de 'DISM' para "X" versión de Windows que vayas a montar, descargando el paquete Windows ADK /Windows AIK especifica de esa versión de Windows que pretendas instalar.

· Apply Updates to an Image Using DISM

Otra forma muy sencilla y menos tediosa de montar, integrar actualizaciones, y desmontar, es usando la herramienta Win7Toolkit, que te facilita todas estas tareas, incluso puedes descargar todas las actualizaciones (o las que quieras) hasta dia de hoy desde la interfaz de la aplicación, no es necesario ser un usuario experto para usar esta aplicación, y es la mejor herramienta automatizada que existe para modificar una imagen de Windows.

http://www.wincert.net/leli55PK/Testing/







Saludos

No se muy bien a que te refieres, pero está permitido usar la etiqueta 'CODE' sin determinar el formato adecuado a la sintaxis del lenguaje específico (Ej: CODE=python), el problema es que el usuario no utilizó ninguna etiqueta (no insertó la etiqueta 'CODE'), si ahora el código está con formato es porque obviamente le edité el post.

Saludos

¿Se ha tomado una decisión ya sobre el mod de la plantilla?, es que la verdad... si no va a haber ningún mod ni tampoco se ha debatido esto en el foro privado (cosa que no lo se), pues entonces lo hago por mi cuenta con la ayuda de los moderadores de las secciones que modero a ver como va la idea, solo estoy esperando por respeto a ver si el-brujo tenia algo que decir en contra (que parece ser que no) y por el comentario de skapunky:


Pero ...lo dicho, si no se ha debatido ni nada entonces por mi parte empezaré a planificar la idea y ponerla en práctica mañana o cuando tenga tiempo para hacerlo todo bien.

Un saludo

Hola

1. El subforo indicado para dudas de Scripting es Scripting, no dudas generales.

2. Has de usar el botón modificar para editar un comentario, no inundarnos con más posts para hacer correciones de última hora.

3. El doble post no está permitido.

4. Has de usar las etiquetas de código para insertar códigos.

Porfavor, LEE LAS NORMAS.

---

El problema es simple de entender, estás intentando buscar un archivo de texto plano como si se tratase de un proceso,
en otras palabras, le estás indicando al Script que busque un proceso que no existe (nunca se instanció), y por eso se inicia un bucle infinito.

    For Each objProcess in colProcessList
        If objProcess.name = "start.bat" then
        ...
    End if

Start.bat no es un proceso, por proceso se entiende a un archivo binario que acaba en .exe,
al ejecutar el archivo Start.bat, lo que se inicia es el proceso CMD.exe, que es el encargado de parsear las órdenes del Script, y ese es el proceso que debes controlar.

Añádele un título a tu Script Batch:

@Echo Off
Title Mi titulo
...

Y eso añadirá un Caption a la barra de título del proceso CMD:


...Así ya tienes algo que poder comparar de forma (algo más) eficiente en VBS:

ProcessName   = "CMD.exe"
WindowCaption = "Mi título"
 
Set WSS = WScript.CreateObject("WScript.Shell")
Set CMD = WSS.Exec("CMD.exe /C ""Tasklist.exe /FI ""ImageName EQ " & ProcessName & """ /FO csv /NH /V | Find /I """ & WindowCaption & """""")
 
Do Until CMD.Status ' Esperar hasta que que finalice la ejecución del proceso.
     WScript.Sleep 500 ' ms
Loop
 
' Evaluamos el código de salida del proceso (el que devuelve el comando 'FIND')
Select case CMD.ExitCode 
 
	Case 0 ' El nombre de la ventana se ha encontrado.
	' Hacer algo...
 
	Case 1 ' El nombre de la ventana no se ha encontrado.
	' Hacer algo...
 
	Case Else ' Código de error inesperado, quizás '2', por un error de sintaxis.
	' Hacer algo...
 
End Select

PD: Puedes dejar de usar la Class Win32_Process de WMI ya que no proporciona ninguna propiedad para obtener el título de la ventana de un proceso http://msdn.microsoft.com/en-us/library/aa394372%28v=vs.85%29.aspx

De todas formas, lo que estás haciendo en Batch es complétamente innecesario, no tiene lógica, tienes un script batch sólamente con una instrucción (Start) cuando puedes hacer lo mismo desde el propio lenguaje de VisualBasicScript, lo cual te seria más sencillo y te ahorra abrir múltiples archivos innecesarios:

WScript.CreateObject("WScript.Shell").Run "www.Google.com"

Saludos

Ten en cuenta que lo que ha comentado WHK es solo una hipótesis, en tu caso podría estar en lo cierto, pero también podría ser que no... sin examinar el estado de tu PC es dificil saberlo con total seguridad.

En caso de que no estés infectado como ha comentado WHK, y solo sea un falso positivo del (cansino) Avast entonces está claro que al cambiar de antivirus lo más probable es que no te siga evaluando cierta parte del código como Malware, y esto no solucionaría el problema que tendrían otros usuarios con Avast instalado en su PC al utilizar tu aplicación.

Así que, para intentar evitar ese problema, en caso de que solo sea un falso positivo, entonces puede probar a utilizar una herramienta para ofuscar tu aplicación.

· Confuser

(Algunas son consideradas como Malware por ciertos Av's, así que elige bien)

Además deberías modificar el nombre del Espacio de nombres, de la Clase, y de todas las Variables de tu código.
Ej:

PD: Las preguntas sobre .NET van en el subforo de .NET

Saludos

Set FSO = CreateObject("Scripting.FileSystemObject")
 
File = AskFile(FSO.GetAbsolutePathName(".\"), ".pptx")
 
Do Until FSO.FileExists(File)
	Msgbox "El archivo no existe: " & File, 16
	File = AskFile(FSO.GetAbsolutePathName(".\"), ".pptx")
Loop
 
WScript.CreateObject("WScript.Shell").Run """" & File & """", 1, False
WScript.Quit(0)
 
Function AskFile(Directory, FileExt)
 
	Do Until Not FileName = ""
		FileName = InputBox("Escribe el nombre del archivo (Ej: 001)", "PowerPoint")
	Loop
 
	If Not Len(Filename) > 5 _
	   Or Not (LCase(Right(Filename, 5)) = LCase(FileExt)) Then
 
		FileName = FileName & FileExt
 
	End If
 
	AskFile = Directory & "\" & FileName ' FullPath
 
End Function

Saludos

. . .

---

~> [MSDN] Random Class

Saludos