List all ie cookies
Set wshShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
'http://weitips.blogspot.com.au/2006/04/cookie-file-format-of-internet.html
'http://nirsoft.net/utils/internet_explorer_cookies_view.html
Name = ""
Value = ""
Host = ""
Sub ReadData(file)
Name = ""
Value = ""
Host = ""
On Error Resume Next
Set objReadFile = objFSO.OpenTextFile(file, 1)
Name = objReadFile.ReadLine
Value = objReadFile.ReadLine
Host = objReadFile.ReadLine
objReadFile.Close
On Error GoTo 0
End Sub
Sub DoDir(dir)
Set objFolder = objFSO.GetFolder(dir)
For Each objFile in objFolder.Files
ReadData(objFile.Path)
WScript.Echo Host & ":" & Name & "=" & Value
Next
End Sub
DoDir(wshShell.ExpandEnvironmentStrings("%APPDATA%\Microsoft\Windows\Cookies"))
DoDir(wshShell.ExpandEnvironmentStrings("%APPDATA%\Microsoft\Windows\Cookies\Low"))