Hallo Cubaner.
Es wäre sehr nett von Dir, wenn Du den VB Script veröffentlichen würdest.
Zip-Dateien oder Exe-Dateien sind da nicht so gut, da man (und Frau) nie sehen kann, was "drinne" ist.
Gruß,
Crazy-A.
Hat er doch, die Source ist:
' Dieses Skript listet alle installierten Programme und Hotfixes in einer Textdatei auf
'
strHost = "."
Const HKLM = &H80000002
Set objReg = GetObject("winmgmts://" & strHost & _
"/root/default:StdRegProv")
Const strBaseKey = _
"Software\Microsoft\Windows\CurrentVersion\Uninstall\"
objReg.EnumKey HKLM,strBaseKey,arrSubKeys
For Each strSubKey In arrSubKeys
intRet = objReg.GetStringValue(HKLM,strBaseKey & strSubKey,_
"DisplayName",strValue)
If intRet <> 0 Then
intRet = objReg.GetStringValue(HKLM,strBaseKey & strSubKey,_
"QuietDisplayName",strValue)
End If
If (strValue <> "") and (intRet = 0) Then
set fs = CreateObject("Scripting.FileSystemObject")
logfile = "c:\Software.txt"
set handle = fs.OpenTextFile(logfile,8,true)
softwareName = strValue
handle.WriteLine softwareName
handle.close
End If
NextDie AutoIt Version:
$sBaseKey = "HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall\"
[/autoit] [autoit][/autoit] [autoit]$iKey = 1
$sSoftwareName = ""
$sLogfile = "C:\software.txt"
$hFile = FileOpen ( $sLogfile, 10 )
if @error Then
MsgBox ( 64, "Error", "Could not open File")
Exit
EndIf
while 1
$sKey = RegEnumKey ( $sBaseKey , $iKey )
if @error then ExitLoop
$sDisplayName = RegRead ( $sBaseKey & "\" & $sKey , "DisplayName")
if @error Then
$sDisplayName = RegRead ( $sBaseKey & "\" & $sKey , "QuietDisplayName")
if @error then
$iKey += 1
ContinueLoop
EndIf
EndIf
FileWriteLine ( $hFile, $sDisplayName & @crlf)
$iKey += 1
WEnd
Autoit ist so schön.
Gute Arbeit Tom99 
MfG
Der_Doc
Danke meine Fans 
LOL jetzt aber mal net übermütig werden 
MfG
Der_Doc
Ne Sry Autogramme gibts später.
Du hast Fans ?! 
- Ich habe Schulden :wacko:
@doc.
Dann muß er ja auch Fan-Artikel haben und die kann er sich mit Schulden nicht leisten.
Aber Peter, der Zwegat, wird das schon richten. Du hast es ja bereits erkannt.
LG,
Crazy-A.
