Newsgroup: it.comp.os.win.win9x
Titolo: elenco programmi installati

salve,
esiste un programma ( o ancora meglio uno script) che faccia su di  una 
macchina con win98 l'elenco  (il più completo possibile e senza quelli gia 
elimati) dei progranmmi installati
GRAZIE
P. 

 elimati) dei progranmmi installati
Piu semplice ma anche meno completo visto che il WMI
non e' installato di default su un 98
' questi sotto sono TUTTI  *.vbs che controllano la cartella c:\programmi
' l'ultimo legge da regedit la sezione uninstal
'[1]
Dim str
Set Fs = WScript.CreateObject("Scripting.FileSystemObject")
Set Win = WScript.CreateObject("Shell.Application")
Set objFolder=Win.NameSpace("c:\programmi")
Msgbox  Win.NameSpace("c:\programmi")
For I=0 To 8
 str=str & objFolder.GetDetailsOf(, I) & vbTab
Next
str=str & vbCrLf
For Each obj In objFolder.Items
 For I=0 To 8
  str=str & objFolder.GetDetailsOf(obj, I) & vbTab
 Next
 str=str & vbCrLf
Next
Set ts=Fs.CreateTextFile("Programmi.txt")
ts.Write str
ts.Close
msgbox "done"
set oShell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
while not FSO.FileExists("Programmi.txt")
WScript.Sleep 100
Wend
oShell.run"Programmi.txt"
'[2]
'Far partire da esegui cscript nomefile.vbs
'per esempio nomina il file XXX.vbs e piazzalo in c:\
' poi start esegui cscript XXX.vbs   (invio)
' Fa' una lista completa di tutti gli exe in c:\programmi
wscript.stdout.writeline "start: " & now
set shell = createobject("wscript.shell")
set fso = createobject("scripting.filesystemobject")
sCmd = "%comspec% /c dir C:\PROGRA~1\*.exe /s > c:\ExeList.txt"
shell.run sCmd,0,1
sText = fso.opentextfile("c:\ExeList.txt").readall
wscript.stdout.writeline "finish: " & now
wscript.stdout.write sText
wscript.stdout.writeline ""
wscript.stdout.writeline ""
wscript.stdout.writeline "press ENTER to continue..."
wscript.stdin.readline
'[3]
set oShell = CreateObject("WScript.Shell")
sLogFile = "C:\WINDOWS\TEMP\LogFile.Log"
oFile ="C:\WINDOWS\TEMP\UNI.REG"
Set oFSO = CreateObject("Scripting.FileSystemObject")
oShell.run"regedit /e UNI.reg HKEY_LOCAL_MACHINE\"& _
"Software\Microsoft\Windows\CurrentVersion\Uninstall"
WScript.Sleep 2500
Set oLogFile = oFSO.OpenTextFile(sLogFile, 8, True, 0)
    Set oStream = oFSO.OpenTextFile(oFile, 1)
    Do Until oStream.AtEndOfStream
      sLine = oStream.ReadLine
If InStr(UCase(sLine),"DISPLAYNAME") Or _
InStr(UCase(sLine),"QUIETUNINSTALL") Then
        oLogFile.WriteLine sLine & VBCrLf
      End If
    Loop
set oShell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
while not FSO.FileExists("C:\WINDOWS\TEMP\LogFile.Log")
WScript.Sleep 1000
Wend
WScript.Sleep 1000
oShell.run"C:\WINDOWS\TEMP\LogFile.Log"
'Copia incolla su notepad e salva con estensione .vbs
'tutti i file (*.*)  poi ci clicchi sopra. (per esempio Test.vbs)
'se ti da' errore disattiva l'antivirus
--
Fosco



Belarc Advisor, freeware, 
www.belarc.com
Newsgroups: microsoft.public.it.windowsxp
Subject: Re: Programma tipo everest
Date: Tue, 30 May 2006 02:46:48 +0200
www.google.it/groups?threadm=371n72984eib48mt8p404ohscssjfq5fe9%404ax.com
Facci sapere se e come hai risolto, grazie.
-- 
Tiziano "Lapalissiano" Marmiroli
Microsoft MVP - Office System

 Belarc Advisor, freeware, 
www.belarc.com
http://www.belarc.com/Programs/advisor.exe
Bel programmino
--
Fosco

"Fosco" <fa...@fake.invalid> ha scritto nel messaggio 
news:WYR5h.5887$K8....@news.edisontel.com...

Grazie a Fosco e a Lapalissiano
Molto interessante il programma belarc però mi sembra che non si possa 
utilizzare nelle scuole.
Grazie atutti di nuovo
.p

 utilizzare nelle scuole.
Se hai il WMI installato prova con lo scriptomatic
Io qui non lo posso testare ma mi pare che avesse anche questo
Se vuoi fare una cosa tramite script allora e' col WMI
http://digilander.libero.it/Cenati/registry.htm
Per scoprire cosa altro si può fare con WMI consglio di scaricare il programma "Scriptomatic" dal sito Microsoft. E' una
applicazione HTM (una pagina html salvata con estensione hta, che non ha limitazioni di sicurezza). Questo programma può
generare script di interrogazione su moltissime variabili dell'ambiente Windows, sui programmi installati, ecc. Per
sapere sommariamente cosa è WMI, cercare il file WMIC.HLP nella cartella Windows\help.
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/wmi_start_page.asp
Download WMI CORE 1.5 (Windows 95/98) here:
http://www.microsoft.com/downloads/release.asp?ReleaseID=18492
--
Fosco

"Fosco" <fa...@fake.invalid> ha scritto nel messaggio 
news:NrU5h.5894$K8....@news.edisontel.com...

Grazie Fosco proverò quanto sopra.
Per fare l'inventario delle macchine xp ho utilizzato lo seguente script 
vbs:
'======================
' C O M P U T E R I N V E N T O R Y
'
' Script created in 2006 for Lafarge Group
' by J-B. Sarrodie (
jean-baptis...@lafarge.com
)
'
' CREDITS :
' Created with a lot of code from 
http://cwashington.netreach.net
' Hardware inventory from
' * Carl Taylor (
carl_g...@hotmail.com
)
' * Jeffrey Miller (
jmil...@reliant.com
)
' * Michael Baird (
mjb...@hotmail.com
)
' Software inventory from
' * Bill James (
wgj...@mvps.org
)
' * Torgeir Bakken
che però in win 98 sembra non funzionare  almeno sulle macchine in nostro 
possesso.
grazie ancora
.p