I've written my own cookie management script:
------------------------------------------------------------
Dim strSafeList
'// Enter the names of websites you want to keep your cookies from here. Use commas to separate. Do not include the .com or prefixes.
strSafeList = "anandtech, msnbc, swforums, dagta,google"
'// Enter the path to your user profile cookies folder
strCookiesDir = "C:\Documents and Settings\Your Username\Cookies"
Sub Main(strSafeList)
Dim arySafeList
arySafeList = Split(strSafeList, ",")
For i = 0 to Ubound(arySafeList)
arySafeList(i) = Trim(arySafeList(i) & "")
Next
Dim objFSO, objFolder, objFiles
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strCookiesDir)
Dim blnDeleteFile
For Each objFile in objFolder.Files
blnDeleteFile = True
For i = 0 to Ubound(arySafeList)
If InStr(LCase(objFile.Name), LCase(arySafeList(i))) > 0 Then
blnDeleteFile= False
End If
Next
On Error Resume Next
If blnDeleteFile Then
objFile.Delete
End If
On Error GoTo 0
Next
Set objFile = Nothing
Set objFolder = Nothing
Set objFSO = Nothing
End Sub
Call Main(strSafeList)
msgbox("Done!")