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
