INHALT des Papierkorbs auslesen

Hallo Forum-User ...

Ich möchte den Inhalt des Papierkorbes (XPPro) auf bestimmten PCs vor (scriptgesteuertem) Leeren in ein Logfile auslesen lassen (am liebsten per Batch - meinetwegen auch per vbs).
Klingt eigentlich supereinfach.

Aber:
In den 'Recyclern' sind nur Nummern der Sicheheitsprinzipale sichtbar.
Den Win-Ordner "Papierkorb", der die Dateinamen zeigt, kann ich per console / script nicht erreichen.

Wie könnte ich mich einer Lösung nähern ... ?

Dank, Marwed

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 142882

Url: https://administrator.de/contentid/142882

Ausgedruckt am: 22.11.2024 um 13:11 Uhr

6 Kommentare

Neuester Kommentar

Hallo,

mit VBScript geht das schon, ob man auch an den alten Ordner herankommen kann weiss ich nicht.

' ListRecycleBin.vbs  
Const RECYCLE_BIN = &Ha&

Set objShell = CreateObject("Shell.Application")  
Set objFolder = objShell.Namespace(RECYCLE_BIN)
Set objFolderItem = objFolder.Self
Wscript.Echo objFolderItem.Path

Set colItems = objFolder.Items
For Each objItem in colItems
    Wscript.Echo objItem.Name
Next

Gruß
LotPings

Hallo Marwed und LotPings,

dem Script ist nichts hinzu zu fügen. Falls es aber im Kontext eines Batchfiles benötigt wird, kann man es noch als Pseudo-Oneliner zusammenschrumpfen.

@echo off &setlocal
:: erzeuge vbs
>"%temp%\temp.vbs" echo Set objFolder=CreateObject("Shell.Application").Namespace(10):For Each objItem In objFolder.Items:Wscript.Echo objItem.Name:Next  
:: erzeuge log
>"recycler.log" cscript //nologo "%temp%\temp.vbs"  
:: lösche vbs
del "%temp%\temp.vbs"  

Grüße
rubberman

Danke, das ist es ....
Habe noch was drumgebastelt ;)
Gruß, Marwed

@echo off &setlocal 
:: Listet Inhalt Papierkorb

:: Falls WSHost deaktiviert, einschalten
for /F "tokens=3" %%i in ( 'REG QUERY "Hkey_Local_Machine\Software\Microsoft\Windows Script Host\Settings" /v Enabled' ) do set WSHOST=%%i  
if not %WSHOST%==0x1 (
	REG ADD "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows Script Host\Settings" /v Enabled /t REG_DWORD /d 1 /f > nul  
	set RESETWSHOST=1
)

:: erzeuge vbs 
>"%temp%\temp.vbs" echo Set objFolder=CreateObject("Shell.Application").Namespace(10):For Each objItem In objFolder.Items:Wscript.Echo objItem.Name:Next   
:: erzeuge log 
>>"recycler.log" cscript //nologo "%temp%\temp.vbs"  
echo ---RecBinEmpty---%DATE%---%time:~0,8%--- >> recycler.log
echo. >> recycler.log

:: lösche vbs 
del "%temp%\temp.vbs"  

:: falls WSHOST  vorher deaktiviert war, wieder ausschalten
if %RESETWSHOST%==1 (
	REG ADD "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows Script Host\Settings" /v Enabled /t REG_DWORD /d 0 /f > nul  
)
set RESETWSHOST=

@rubberman
Zur Not täte es auch (wenn schon, denn schon

) die folgende Zeile 3:

>%temp%\temp.vbs echo For Each objItem In CreateObject("Shell.Application").Namespace(10).Items:WScript.Echo objItem.Name:Next

... und ja, am Datei- oder am Variablennamen "objItem" ließe sich auch noch sparen ...

Grüße
bastla

[OT]
@bastla
Möglicherweise sollte ich mir abgewöhnen am Wochenende nach der Fete und mitten in der Nacht noch Postings zu schreiben.
Das ein oder andere Promill Blut im Alkohol hat mein minimalistisches Ansinnen dann doch länger werden lassen als geplant

Grüße
rubberman
[/OT]