Here's where I'm at. It keeps telling me "expected end." Where am I going wrong?
dim filesys, filetxt, strSearchFor
strSearchFor = "pref(""network.negotiate-auth.trusted-uris"", ""dl-okoar-01.chikentime.local"");"
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set filesys = CreateObject("Scripting.FileSystemObject")
Set objFile = filesys.OpenTextFile("C:\Program Files (x86)\Mozilla Firefox\defaults\pref\channel-prefs.js", ForReading)
If InStr(strLine, strSearchFor) = True Then
Set filetxt = Nothing
If Not found then
Set filetxt = filesys.OpenTextFile("C:\Program Files (x86)\Mozilla Firefox\defaults\pref\channel-prefs.js", ForAppending, True)
filetxt.WriteLine("pref(""network.negotiate-auth.trusted-uris"", ""dl-okoar-01.chikentime.local"");")
filetxt.WriteLine("pref(""network.automatic-ntlm-auth.allow-non-fqdn"", true);")
filetxt.WriteLine("pref(""network.negotiate-auth.allow-non-fqdn"", true);")
filetxt.Close
End If