' VBScript clean WriteLog V12 user-specific entries from the Windows Registry ' Instructions: ' Logged in as the user that you want cleaned up. ' RECOMMEND YOU FIRST DOWNLOAD AND RUN ' http://writelog.com/Downloads/backupWL12RegEntries.bat ' Use Windows Explorer to double click this file. It will display a message on success or failure. ' HKEY_CURRENT_USER = 2147483649 strComputer = "." Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") ' Key where the on-screen window positions are stored Key = "SOFTWARE\W5XD" Function DeleteSubKeys(keypath) oReg.EnumKey HKEY_CURRENT_USER, keypath, arrSubKeys if (IsNull ( arrSubKeys) = false ) Then For Each subkey in arrSubKeys call DeleteSubKeys( keypath & "\" & subkey) Next End if Return = oreg.DeleteKey (HKEY_CURRENT_USER, keypath) If (Return = 0) And (Err.Number = 0) Then DeleteSubKeys = keypath & " successfully deleted" Else DeleteSubKeys = keypath & " delete key failed" End If End Function dim message message = DeleteSubKeys (Key & "\FlexDriver") message = message & vbCrLf & DeleteSubKeys(Key & "\WriteLog") message = message & vbCrLf & DeleteSubKeys (Key & "\writelog.ini") message = message & vbCrLf & DeleteSubKeys (Key & "\writelog_v12") WScript.Echo message