'FF2Chrome.vbs
'chrome format: name,url,username,password
'fox format: hostname,username,password,formSubmitURL,httpRealm,usernameField,passwordField
Set FSO = CreateObject("Scripting.FileSystemObject")
Set File = FSO.GetFile("fox.csv")
Set OutStream = FSO.CreateTextFile("chrome.csv",True)
OutStream.WriteLine "name,url,username,password"
Set TextStream = File.OpenAsTextStream(1)
TextStream.SkipLine
TextStream.SkipLine
While Not TextStream.AtEndOfStream
Str = vbNullString
Str = TextStream.ReadLine()
myarr = split(Str,",")
i = InStr(myarr(0), "//")
name = Mid(myarr(0),i+2,Len(myarr(0))-i-2) & ","
url = Mid(myarr(3),2, Len(myarr(3))-2) & ","
username = Mid(myarr(1),2, Len(myarr(1))-2) & ","
password = Mid(myarr(2),2, Len(myarr(2))-2)
'MsgBox name & url & username & password
OutStream.WriteLine name & url & username & password
Wend
TextStream.Close
OutStream.Close
MsgBox "OK" |
