Problemas al instalar o iniciar programas nuevos

Copia y pega tal cual este "script" cortesía de Torgeir Bakken [MS MVP] en el Bloc de notas, guárdalo con extensión VBS y ejecútalo. Debería abrirse una ventana del Bloc de notas con los productos instalados mediante Windows Installer y sus respectivos ID. Déjanos aquí esa lista.

Const OverwriteIfExist = -1
Const OpenAsASCII = 0


Set oMsi = CreateObject("WindowsInstaller.Installer")
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oShell = CreateObject("Wscript.Shell")


sFile = oShell.ExpandEnvironmentString­s("%TMP%") & "\WI_Products.txt"
Set f = oFSO.CreateTextFile(sFile, _
OverwriteIfExist, OpenAsASCII)


On Error Resume Next
For Each sProduct in oMsi.Products
sProdName = ""
sProdName = oMsi.ProductInfo(sProduct, "InstalledProductName")
If sProdName <> "" Then
f.WriteLine sProduct & " " & sProdName
End If
Next
On Error Goto 0
f.Close
oShell.Run "notepad.exe " & """" & sFile & """", 1, False

Un saludo,
Daniel Martín
Correo electrónico:


"%root" wrote in message news:

Sigo con el mismo problema despues de haber exo
1. Abre Inicio, Ejecutar y escribe (sin comillas): "msiexec /unreg".
Presiona Intro.
2. Abre Inicio, Ejecutar y escribe (sin comillas): "msiexec /regserver".
Presiona Intro
Los programas siguen haciendo lo mismo y la unica manera de cerrarlos es
finalizando tarea desde taskmgr
Visor de sucesos

Tipo de aviso:Advertencia
Origen:msiInstaller
Descripcion:
Error al detectar la característica 'Complete' del producto
'{59404E7D-BE5F-4668-9BDF-52C98FCA09D1}' durante la solicitud del componente
'{BF4D7A70-D89D-11D1-A17D-00A0C90AB50F}'

La ultima aplicacion que intente ejecutar.

Tipo de aviso:informado
Origen:eeye application bus
Descripcion:
No se encuentra la descripción del Id. de suceso ( 108 ) en el origen ( eEye
Application Bus ). Es posible que el equipo local no tenga la información de
Registro o archivos DLL de mensajes necesarios para mostrar mensajes desde un
equipo remoto. Es posible que pueda usar el indicador /AUXSOURCE= para
recuperar esta descripción; consulte Ayuda y soporte técnico para obtener más
detalles. La siguiente información es parte del suceso: El archivo de
registro de sucesos está dañado..
.

Otro error recientemente arreglado que tenia era que no podia podian entrar
lo usuarios en sus cuentas.


Tipo de aviso:Error
Origen:Userenv
Descripcion:
Windows no puede iniciar sesión porque no se puede cargar el perfil.
Compruebe que está conectado a la red, o que su red está funcionando
correctamente. Si este problema persiste, póngase en contacto con el
administrador de red.

DETALLE - El sistema no puede hallar el archivo especificado.
-

Todos estos errores relacionados con tomar posesion de una carpeta de
usuario de la que tome posesion /carpeta/propiedades/seguridad/ agrego mi
cuenta de administrador aceptar me salio el mensaje de Reemplazar propietario
en subcontenedores y objetos/aceptar. y desde ese momento tengo estos
problemas :(














"%root" escribió:

No me dio resultado
(ejecuto programas recientemente instalados y me sigue poniendo lo mismo
please wait while windows windows configures "programa"/ghatering required
information... cancelo y retoma de nuevo para volver a instalar y asi
sucesiva mente sin dejarme entrar al programa)

Encabezado del error: Windows Script Host
Secuencia de comandos C:\Documents and settings\Administrador\escritorio\.vbs
Linea: 10
Caracter:39
Error: Carácter no válido
Código: 800A0408
Origen: Error de compilación de Microsoft VBScript


Const OverwriteIfExist = -1
Const OpenAsASCII = 0


Set oMsi = CreateObject("WindowsInstaller.Installer")
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oShell = CreateObject("Wscript.Shell")


sFile = oShell.ExpandEnvironmentString­s("%TMP%") & "\WI_Products.txt"
Set f = oFSO.CreateTextFile(sFile, _
OverwriteIfExist, OpenAsASCII)


On Error Resume Next
For Each sProduct in oMsi.Products
sProdName = ""
sProdName = oMsi.ProductInfo(sProduct, "InstalledProductName")
If sProdName <> "" Then
f.WriteLine sProduct & " " & sProdName
End If
Next
On Error Goto 0
f.Close
oShell.Run "notepad.exe " & """" & sFile & """", 1, False

La linea

sFile = oShell.ExpandEnvironmentString­s("%TMP%") & "\WI_Products.txt

que has pegado en el Bloc de Notas, no se porque motivo, te ha quedado como

sFile = oShell.ExpandEnvironmentString­-s("%TMP%") & "\WI_Products.txt

Fijate en la palabra String-s.

Elimina el guion y une String con la s.
Un saludo
Ramon Castedo


"%root" escribió en el mensaje
news:

Encabezado del error: Windows Script Host
Secuencia de comandos C:\Documents and
settings\Administrador\escritorio\.vbs
Linea: 10
Caracter:39
Error: Carácter no válido
Código: 800A0408
Origen: Error de compilación de Microsoft VBScript


Const OverwriteIfExist = -1
Const OpenAsASCII = 0


Set oMsi = CreateObject("WindowsInstaller.Installer")
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oShell = CreateObject("Wscript.Shell")


sFile = oShell.ExpandEnvironmentString­s("%TMP%") & "\WI_Products.txt"
Set f = oFSO.CreateTextFile(sFile, _
OverwriteIfExist, OpenAsASCII)


On Error Resume Next
For Each sProduct in oMsi.Products
sProdName = ""
sProdName = oMsi.ProductInfo(sProduct, "InstalledProductName")
If sProdName <> "" Then
f.WriteLine sProduct & " " & sProdName
End If
Next
On Error Goto 0
f.Close
oShell.Run "notepad.exe " & """" & sFile & """", 1, False

Error: Secuencia de comandos:C:\Documents and
settings\liderazgo\escritorio.vbs
Linea: 27
Caracter: 1
Error: Se esperaba una instrucción
Código: 800A0400
Origen: Error de compilacion de microsoft VBScript


Que falta?




Const OverwriteIfExist= -1
Const OpenAsASCII= 0


Set oMsi = CreateObject("WindowsInstaller.Installer")
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oShell = CreateObject("Wscript.Shell")


sFile = oShell.ExpandEnvironmentStrings("%TMP%") & "\WI_Products.txt"
Set f = oFSO.CreateTextFile(sFile, _
OverwriteIfExist, OpenAsASCII)


On Error Resume Next
For Each sProduct in oMsi.Products
sProdName = ""
sProdName = oMsi.ProductInfo(sProduct, "InstalledProductName")
If sProdName <> "" Then
f.WriteLine sProduct & " " & sProdName
End If
Next
On Error Goto 0
f.Close
oShell.Run "notepad.exe " & """" & sFile & """", 1, False














"Ramon Castedo" escribió en el
mensaje news:%23%

La linea

sFile = oShell.ExpandEnvironmentString­s("%TMP%") & "\WI_Products.txt

que has pegado en el Bloc de Notas, no se porque motivo, te ha quedado
como

sFile = oShell.ExpandEnvironmentString­-s("%TMP%") & "\WI_Products.txt

Fijate en la palabra String-s.

Elimina el guion y une String con la s.
Un saludo
Ramon Castedo


"%root" escribió en el mensaje
news:

Encabezado del error: Windows Script Host
Secuencia de comandos C:\Documents and
settings\Administrador\escritorio\.vbs
Linea: 10
Caracter:39
Error: Carácter no válido
Código: 800A0408
Origen: Error de compilación de Microsoft VBScript


Const OverwriteIfExist = -1
Const OpenAsASCII = 0


Set oMsi = CreateObject("WindowsInstaller.Installer")
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oShell = CreateObject("Wscript.Shell")


sFile = oShell.ExpandEnvironmentString­s("%TMP%") & "\WI_Products.txt"
Set f = oFSO.CreateTextFile(sFile, _
OverwriteIfExist, OpenAsASCII)


On Error Resume Next
For Each sProduct in oMsi.Products
sProdName = ""
sProdName = oMsi.ProductInfo(sProduct, "InstalledProductName")
If sProdName <> "" Then
f.WriteLine sProduct & " " & sProdName
End If
Next
On Error Goto 0
f.Close
oShell.Run "notepad.exe " & """" & sFile & """", 1, False

Tienes que copiar el programa justo hasta el final de la palabra False.
No debes de dejar ningun espacio ni linea en blanco al final del programa.
Un saludo
Ramon Castedo


"%Root" escribió en el mensaje
news:

Error: Secuencia de comandos:C:\Documents and
settings\liderazgo\escritorio.vbs
Linea: 27
Caracter: 1
Error: Se esperaba una instrucción
Código: 800A0400
Origen: Error de compilacion de microsoft VBScript


Que falta?




Const OverwriteIfExist= -1
Const OpenAsASCII= 0


Set oMsi = CreateObject("WindowsInstaller.Installer")
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oShell = CreateObject("Wscript.Shell")


sFile = oShell.ExpandEnvironmentStrings("%TMP%") & "\WI_Products.txt"
Set f = oFSO.CreateTextFile(sFile, _
OverwriteIfExist, OpenAsASCII)


On Error Resume Next
For Each sProduct in oMsi.Products
sProdName = ""
sProdName = oMsi.ProductInfo(sProduct, "InstalledProductName")
If sProdName <> "" Then
f.WriteLine sProduct & " " & sProdName
End If
Next
On Error Goto 0
f.Close
oShell.Run "notepad.exe " & """" & sFile & """", 1, False














"Ramon Castedo" escribió en el
mensaje news:%23%

La linea

sFile = oShell.ExpandEnvironmentString­s("%TMP%") & "\WI_Products.txt

que has pegado en el Bloc de Notas, no se porque motivo, te ha quedado
como

sFile = oShell.ExpandEnvironmentString­-s("%TMP%") & "\WI_Products.txt

Fijate en la palabra String-s.

Elimina el guion y une String con la s.
Un saludo
Ramon Castedo


"%root" escribió en el mensaje
news:

Encabezado del error: Windows Script Host
Secuencia de comandos C:\Documents and
settings\Administrador\escritorio\.vbs
Linea: 10
Caracter:39
Error: Carácter no válido
Código: 800A0408
Origen: Error de compilación de Microsoft VBScript


Const OverwriteIfExist = -1
Const OpenAsASCII = 0


Set oMsi = CreateObject("WindowsInstaller.Installer")
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oShell = CreateObject("Wscript.Shell")


sFile = oShell.ExpandEnvironmentString­s("%TMP%") & "\WI_Products.txt"
Set f = oFSO.CreateTextFile(sFile, _
OverwriteIfExist, OpenAsASCII)


On Error Resume Next
For Each sProduct in oMsi.Products
sProdName = ""
sProdName = oMsi.ProductInfo(sProduct, "InstalledProductName")
If sProdName <> "" Then
f.WriteLine sProduct & " " & sProdName
End If
Next
On Error Goto 0
f.Close
oShell.Run "notepad.exe " & """" & sFile & """", 1, False