Supportnet Computer
Planet of Tech

Supportnet / Forum / Skripte(PHP,ASP,Perl...)

Cookies auf Klick löschen!





Frage

Hallo, ich arbeite gerade an einem VB-Script, welches auf Klick alle Cookies löschen soll (des angemeldeten Benutzers) Wie kann ich das lösen, bzw. wie kann ich auf den Ordner zugreifen? Vielen Dank schon im Voraus Mfg blabla0021

Antwort 1 von blabla0021

Weis niemand eine Lösung?

Antwort 2 von Solo

Hi, eine Script-Code für deine Lösung kann ich dir nicht bieten, aber ein kostenloses Programm mit dem man noch mehr löschen kann und das sogar auch von einer Diskette oder USB-Stick aus. Man kanne es auch selbst noch erweitern. Siehe hier ClearProg 1.4.2 Beta 5.

Antwort 3 von blabla0022

Zitat:
arbeite gerade an einem VB-Script

klingt nach guten kenntnissen
Zitat:
Wie kann ich das lösen, bzw. wie kann ich auf den Ordner zugreifen

klingt nach absolutem Laien ! sollte die Finger davon lassen.

wer arbeitet denn nun an einer Lösung - die Allgemeinheit oder der mit den tollen Kenntnissen ?

Antwort 4 von blabla0021

Hallo blabla022,

auf Antworten wie deine kann ich gut verzichten.

Antwort 5 von Solo

Hi, ich kann dir nur ein Script anbieten, wo der Temp-Ordner gelöscht wird. Im Prinzip geht es auch für deine Zwecke. Es müssen nur die Pfade entsprechend angepasst werden.
Beachte - Beim Kopiere des Scripts werden Zeilenumbrüche gesetzt, wo keine sein dürfen. Das musst korrigieren. Sonst funktioniert es nicht!

MfG
Set MyShell = CreateObject("Wscript.Shell")
Set MyFiles = CreateObject("Scripting.FileSystemObject")
Set umgebung=MyShell.Environment("PROCESS")
On Error Resume Next
windir=umgebung("windir")

NT = MyShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductName")

If (myfiles.FileExists(windir & "\pcwTempLeer.bat")) Then
loesch = Myfiles.Deletefile(windir & "\pcwTempLeer.bat", True)
MyShell.Regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\pcwTempLeer"
msg=MsgBox("Das Script wurde de-installiert", 0, "PC-WELT TempLeer: De-Installiert")
wscript.Quit

end if

Set TempLeer=MyFiles.OpenTextFile(windir & "\pcwTempLeer.bat", 2, True)

If NT="" Then
TempLeer.Writeline "echo off"
TempLeer.Writeline "deltree /y %temp%"
TempLeer.Writeline "md %temp%"
TempLeer.Writeline "deltree /y %tmp%"
TempLeer.Writeline "md %tmp%"
TempLeer.Close
MyShell.Regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\pcwTempLeer", "Command /c " & windir & "\pcwTempLeer.bat", "REG_SZ"
Else
Systemp=MyShell.RegRead("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\Session Manager\Environment\TEMP")
Systmp=MyShell.RegRead("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\Session Manager\Environment\TMP")
TempLeer.Writeline "echo off"
TempLeer.Writeline "rd /s /q %temp%"
TempLeer.Writeline "md %temp%"
TempLeer.Writeline "rd /s /q %tmp%"
TempLeer.Writeline "md %tmp%"
TempLeer.Writeline "rd /s /q " & Systemp
TempLeer.Writeline "md " & Systemp
TempLeer.Writeline "rd /s /q " & Systmp
TempLeer.Writeline "md " & Systmp
TempLeer.Close
MyShell.Regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\pcwTempLeer", "Cmd /c " & windir & "\pcwTempLeer.bat", "REG_SZ"
End If

msg=MsgBox("Die TEMP-Verzeichnisse werden ab jetzt bei jedem Neustart gelöscht", 0, "PC-WELT TempLeer: Installiert")

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: