491 Aufrufe
Gefragt in Test von hallogen Experte (1.6k Punkte)
On Error Resume Next
Set fs = CreateObject("Scripting.FileSystemObject")
strUser = CreateObject("WScript.Network").UserName
datei1 = "C:\Users\" & strUser & "\AppData\Roaming\Mozilla\Firefox\Profiles\original.default\SiteSecurityServiceState.txt"
datei2 = "C:\Users\" & strUser & "\AppData\Roaming\Thunderbird\Profiles\original.default\SiteSecurityServiceState.txt"
datei3 = "C:\Users\" & strUser & "\AppData\Roaming\Moonchild Productions\Pale Moon\Profiles\original.default\SiteSecurityServiceState.txt"

DeleteSchreibschutz datei1
DeleteSchreibschutz datei2
DeleteSchreibschutz datei3
Sub DeleteSchreibschutz(dateiname)
If Not fs.FileExists(dateiname) Then Exit sub
Set file = fs.GetFile(dateiname)
file.Attributes = file.Attributes And Not (8+16+64+128+256+1024+2048) And Not 1
End Sub

fs.DeleteFile datei1
fs.DeleteFile datei2
fs.DeleteFile datei3
fs.CreateTextFile datei1
fs.CreateTextFile datei2
fs.CreateTextFile datei3
SetSchreibschutz datei1
SetSchreibschutz datei2
SetSchreibschutz datei3
Sub SetSchreibschutz(dateiname)
If Not fs.FileExists(dateiname) Then Exit sub
Set file = fs.GetFile(dateiname)
file.Attributes = file.Attributes And Not (8+16+64+128+256+1024+2048) Or 1
End Sub

Set wshshell = CreateObject("WScript.Shell")
wshshell.Run ("""" & "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe" & """"),7
'WScript.Sleep 10000
'wshshell.Run ("""" & "C:\Eigene portable Programme\MicroSIP-3.15.4\microsip.exe" & """"),7
WScript.Sleep 10000
wshshell.Run ("""" & "C:\Eigene portable Programme\Uhr T-Clock\Clock64.exe" & """")
'WScript.Sleep 10000
'wshshell.Run ("""" & "C:\Program Files (x86)\Sticky Password\stpass.exe" & """")
WScript.Sleep 10000

Do
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.DeleteFolder("C:\Users\" & strUser & "\AppData\Roaming\Microsoft\Windows\Cookies")
FSO.DeleteFolder("C:\Users\" & strUser & "\AppData\Roaming\Macromedia\Flash Player")
FSO.DeleteFolder ("C:\Users\" & strUser & "\AppData\Local\Chromium\User Data\Default\Pepper Data\Shockwave Flash")
FSO.DeleteFolder("C:\Users\" & strUser & "\AppData\Local\Google\Chrome\User Data\Default\Pepper Data\Shockwave Flash")
FSO.DeleteFolder("C:\Users\" & strUser & "\AppData\Local\Vivaldi\User Data\Default\Pepper Data\Shockwave Flash")
FSO.DeleteFolder("C:\Users\" & strUser & "\AppData\Roaming\Opera Software\Opera Stable\Pepper Data\Shockwave Flash")
FSO.DeleteFolder("C:\Users\" & strUser & "\AppData\Roaming\Mozilla\Firefox\Profiles\original.default\storage")
'FSO.DeleteFile ("C:\Users\" & strUser & "\AppData\Roaming\Mozilla\Firefox\Profiles\original.default\cookies.sqlite"), True
FSO.DeleteFile ("C:\Users\" & strUser & "\AppData\Roaming\Moonchild Productions\Pale Moon\Profiles\original.default\cookies.sqlite"), True
FSO.DeleteFile ("C:\Users\" & strUser & "C:\Windows\Eigene portable Programme\Palemoon-Portable-27.3.0\User\Palemoon\Profiles\Default\cookies.sqlite"), True
FSO.DeleteFile ("C:\Users\" & strUser & "\AppData\Local\Google\Chrome\User Data\Default\Cookies"), True
FSO.DeleteFile ("C:\Users\" & strUser & "\AppData\Local\Vivaldi\User Data\Default\Cookies"), True
WScript.Sleep 60000
Loop

3 Antworten

0 Punkte
Beantwortet von hallogen Experte (1.6k Punkte)
Bearbeitet von hallogen

FSO.DeleteFolder ("C:\Users\" & strUser & "\AppData\Local\Packages\Microsoft.MicrosoftEdge_8wekyb3d8bbwe\AC\#!002\MicrosoftEdge\User\Default\DOMStore")

Aaaah !!!  Die Gänsefüßchen sind wieder da  smiley  * # q @ > < ^^ µ |

Es gibt keine Vorschau mehr? Das ist blöd bei meinen ständigen sCHriebfelern.

0 Punkte
Beantwortet von halfstone Profi (18.1k Punkte)
Dafür kannst du deine Sachen jetzt editieren, da braucht es keine Vorschau ;-)

Gruß Fabian
0 Punkte
Beantwortet von hallogen Experte (1.6k Punkte)
Bearbeitet von hallogen

OK , selber editieren ist mir auch lieber, man braucht keinen Admin wecken. Katzen schwanz und Chip satz kann man dann ja auch nachträglich editieren.

Bin ich eigentlich der Einzige dem die Zeilenabstände viel zu groß sind? Mal sehen wie lange es dauert bis mein Scrollrad kaputt ist.

Nein ich möchte standartmäßig keine Email erhalten.

Huch! "Z" funktioniert noch nicht!? ;)                                   Dies ist ein Zitat

...