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
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
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.
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")
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")

