Dim fso, WshShell, nasty 
Set WshShell = Wscript.CreateObject("Wscript.Shell")
Set fso = Wscript.CreateObject("Scripting.FilesystemObject")
On error resume next
nasty = WshShell.RegRead("HKCR\CLSID\{DDFFA75A-E81D-4454-89FC-B9FD0631E726}\InProcServer32\") 

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(nasty)
f.attributes = 0 

fso.DeleteFile(nasty)
Err.clear
Wscript.Sleep 100 

On Error resume Next 

WshShell.Run "reg delete HKCR\CLSID\{DDFFA75A-E81D-4454-89FC-B9FD0631E726} /f" ,vbhide 

WshShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Streams\Desk'top\Taskbar"
WshShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Streams\Desktop\Toolbars" 
WshShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\StuckRects2\" 

MsgBox "Done"