Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

INHALT des Papierkorbs auslesen

Frage Entwicklung Batch & Shell

Mitglied: Marwed

Marwed (Level 1) - Jetzt verbinden

15.05.2010, aktualisiert 21:36 Uhr, 3684 Aufrufe, 6 Kommentare

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
Mitglied: LotPings
15.05.2010 um 23:40 Uhr
Hallo,

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

01.
' ListRecycleBin.vbs 
02.
Const RECYCLE_BIN = &Ha& 
03.
 
04.
Set objShell = CreateObject("Shell.Application") 
05.
Set objFolder = objShell.Namespace(RECYCLE_BIN) 
06.
Set objFolderItem = objFolder.Self 
07.
Wscript.Echo objFolderItem.Path 
08.
 
09.
Set colItems = objFolder.Items 
10.
For Each objItem in colItems 
11.
    Wscript.Echo objItem.Name 
12.
Next
Gruß
LotPings
Bitte warten ..
Mitglied: rubberman
16.05.2010 um 01:39 Uhr
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.

01.
@echo off &setlocal 
02.
:: erzeuge vbs 
03.
>"%temp%\temp.vbs" echo Set objFolder=CreateObject("Shell.Application").Namespace(10):For Each objItem In objFolder.Items:Wscript.Echo objItem.Name:Next 
04.
:: erzeuge log 
05.
>"recycler.log" cscript //nologo "%temp%\temp.vbs" 
06.
:: lösche vbs 
07.
del "%temp%\temp.vbs"
Grüße
rubberman
Bitte warten ..
Mitglied: Marwed
16.05.2010 um 12:10 Uhr
Danke, das ist es ....
Habe noch was drumgebastelt ;)
Gruß, Marwed

01.
@echo off &setlocal  
02.
:: Listet Inhalt Papierkorb 
03.
 
04.
:: Falls WSHost deaktiviert, einschalten 
05.
for /F "tokens=3" %%i in ( 'REG QUERY "Hkey_Local_Machine\Software\Microsoft\Windows Script Host\Settings" /v Enabled' ) do set WSHOST=%%i 
06.
if not %WSHOST%==0x1 ( 
07.
	REG ADD "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows Script Host\Settings" /v Enabled /t REG_DWORD /d 1 /f > nul 
08.
	set RESETWSHOST=1 
09.
10.
 
11.
:: erzeuge vbs  
12.
>"%temp%\temp.vbs" echo Set objFolder=CreateObject("Shell.Application").Namespace(10):For Each objItem In objFolder.Items:Wscript.Echo objItem.Name:Next  
13.
:: erzeuge log  
14.
>>"recycler.log" cscript //nologo "%temp%\temp.vbs" 
15.
echo ---RecBinEmpty---%DATE%---%time:~0,8%--- >> recycler.log 
16.
echo. >> recycler.log 
17.
 
18.
:: lösche vbs  
19.
del "%temp%\temp.vbs" 
20.
 
21.
:: falls WSHOST  vorher deaktiviert war, wieder ausschalten 
22.
if %RESETWSHOST%==1 ( 
23.
	REG ADD "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows Script Host\Settings" /v Enabled /t REG_DWORD /d 0 /f > nul 
24.
25.
set RESETWSHOST= 
26.
 
Bitte warten ..
Mitglied: bastla
16.05.2010 um 13:18 Uhr
@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
Bitte warten ..
Mitglied: rubberman
16.05.2010 um 14:50 Uhr
[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]
Bitte warten ..
Mitglied: Marwed
16.05.2010 um 17:52 Uhr
Danke, Leute !!!
Gruß, Marwed
Bitte warten ..
Neuester Wissensbeitrag
Ähnliche Inhalte
Batch & Shell
Text-Datei auslesen und Inhalt als Parameter übergeben (1)

Frage von aubm2013 zum Thema Batch & Shell ...

VB for Applications
gelöst Bestimmte Spalten aus CSV-Datei auslesen (VBS) (9)

Frage von Gurkenhobel zum Thema VB for Applications ...

Batch & Shell
Eventlog Druckjobs mit VBS auslesen (2)

Frage von joni2000de zum Thema Batch & Shell ...

Heiß diskutierte Inhalte
Windows Userverwaltung
Ausgeschiedene Mitarbeiter im Unternehmen - was tun mit den AD Konten? (33)

Frage von patz223 zum Thema Windows Userverwaltung ...

LAN, WAN, Wireless
FritzBox, zwei Server, verschiedene Netze (21)

Frage von DavidGl zum Thema LAN, WAN, Wireless ...

Viren und Trojaner
Aufgepasst: Neue Ransomware Goldeneye verbreitet sich rasant (20)

Link von Penny.Cilin zum Thema Viren und Trojaner ...