Newsgroup: it.comp.aiuto
Titolo: cerco software per.....

.......
 ciao,
qualcuno conosce un semplice software che mi rilevi tutte le applicazioni 
installate sul PC (xp-home) e me le mostri in una lista da poter poi 
stampare ( se poi c'è anche il "percorso" che mi fa vedere dove  sono 
situate è meglio)
il software non deve fare altro, quindi qlcs di semplice semplice  ;-)
grz
Ric 

situate è meglio)
Belarc Advisor
--
Bye, Yorgos
To send me an e-mail, please change antzhùya with alice

 il software non deve fare altro, quindi qlcs di semplice semplice  ;-)
Ops... questo fa anche altro. Altre belle ed ottime cose. Però è 
semplice ;)
-- 
Ciao, Guglielmo.

 situate è meglio)
'1 l'output sara' in  Programmi.txt
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"
'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
' 2 l'output sara' in  c:\nomecomputer.txt
Set oShell = CreateObject("WScript.Shell")
sProgramFiles = oShell.RegRead("HKLM\SOFTWARE\"& _
"Microsoft\Windows\CurrentVersion\ProgramFilesDir")
Set objNetwork = CreateObject("Wscript.Network")
sComputerName = objNetwork.ComputerName
Set fso = CreateObject("Scripting.FileSystemObject")
Set filetxt = fso.CreateTextfile("c:\"&sComputerName&".txt", True)
set folder = fso.getfolder(sProgramFiles)
for each subfolder in folder.subfolders
 t = subfolder.Size/1024000
S = formatnumber(t,,,,0) & " MB "
'  wscript.echo subfolder.path
'  wscript.echo "dimensione in bytes ===>", subfolder.size
filetxt.WriteLine subfolder.path &"   "& S
'filetxt.WriteLine S
next
' 3
'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
'4 legge la sezione uninstal di Regedit
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"
' 5 ecc
--
Fosco