Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- On Error Resume Next
- aku = 1
- While aku = 1
- Dim WshShell, cal1
- Set WshShell = WScript.CreateObject("WScript.Shell")
- cal1 = "HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID\{d4e311fb-0b57-4add-bf57-1c39e13187a8}\"
- WshShell.RegDelete cal1
- WScript.Sleep 5000
- Wend
Advertisement
Add Comment
Please, Sign In to add comment
