Firefox NTLM Authentification, VBScript um Werte zu ergänzen

Hallo,

habe für mich jetzt doch eine funktionierende Lösung gefunden, die sehr an der obigen angelehnt ist. Ist unter Umständen so nicht perfekt programmiert, aber es funktioniert und das ist mir zuerst einmal am Wichtigsten


Values = Array("http://s1")
Setting = "user_pref(""network.automatic-ntlm-auth.trusted-uris"""
Setting2 = "user_pref(""network.automatic-ntlm-auth.allow-proxies"""
Setting3 = "user_pref(""network.negotiate-auth.allow-proxies"""

Set fso = CreateObject("Scripting.FileSystemObject")
Set Sh = CreateObject("WScript.Shell")

' #######################################################
'prefs.js suchen:
'Profilpfad ermitteln
FFPath = Sh.ExpandEnvironmentStrings("%Appdata%") & "\Mozilla\Firefox"
'"profiles.ini" einlesen ...
IniLines = Split(fso.OpenTextFile(FFPath & "\profiles.ini").ReadAll, vbCrLf)
'... und nach Zeile "Path=..." durchsuchen
For Each Line In IniLines
If Left(Line, 5) = "Path=" Then
FFProfilesPath = Trim(Mid(Line, 6))
Exit For
End If
Next
PrefsPath = FFPath & "\" & FFProfilesPath & "\prefs.js"
'falls keine "prefs.js" gefunden wurde, Abbruch
If Not fso.FileExists(PrefsPath) Then MsgBox "Datei prefs.js nicht vorhanden!", vbExclamation, "Fehlende prefs.js"
If Not fso.FileExists(PrefsPath) Then WScript.Quit 1

' ########################################################
'"prefs.js" komplett in Array einlesen ...
PrefsLines = Split(fso.OpenTextFile(PrefsPath).ReadAll, vbCrLf)

' ########################################################
'... und nach dem gewünschten "Settings-String" durchsuchen
For i = 0 To UBound(PrefsLines)
If InStr(PrefsLines(i), Setting) > 0 Then
'gefunden: Zeilennummer merken und Schleife verlassen
LineNo = i
Exit For
End If
Next
'Wenn Zeile bereits vorhanden war, ...
If LineNo <> 0 Then
'... gesamte Zeile auslesen
SettingLine = PrefsLines(LineNo)
'bereits vorhandene Werte isolieren
'(dazu Aufteilung der Zeile anhand der Anführungszeichen)
SettingValues = Trim(Split(SettingLine, """")(3))

'alle gewünschten Werte durchgehen
For Each Value In Values
'Wert noch nicht vorhanden
If InStr(SettingValues, Value) = 0 Then
' ... daher: hinzufügen
SettingValues = SettingValues & "," & Value
End If
Next
'Zeile neu zusammenbauen
PrefsLines(LineNo) = Setting & ", """ & SettingValues & """);"
'gesamte "prefs.js" wieder aus Array zusammensetzen
PrefsLinesNew = Join(PrefsLines, vbCrLf)
Else
'gesuchte Zeile noch nicht vorhanden,
'daher mit allen gewünschten Werten neu erstellen
PrefsLinesNew = Join(PrefsLines, vbCrLf) & vbCrLf & _
Setting & ", """ & Join(Values, ",") & """);"
End If
'"prefs.js" schreiben
fso.CreateTextfile(PrefsPath).Write PrefsLinesNew

' ########################################################
'"prefs.js" komplett in Array einlesen ...
PrefsLines = Split(fso.OpenTextFile(PrefsPath).ReadAll, vbCrLf)

' #############################################################
'... und nach dem gewünschten "Settings2-String" durchsuchen
For i = 0 To UBound(PrefsLines)
If InStr(PrefsLines(i), Setting2) > 0 Then
'gefunden: Zeilennummer merken und Schleife verlassen
LineNo = i
Exit For
End If
Next
'Wenn Zeile bereits vorhanden war, ...
If LineNo <> 0 Then
'... gesamte Zeile auslesen
SettingLine = PrefsLines(LineNo)
'bereits vorhandene Werte auslesen
'(dazu Aufteilung der Zeile anhand der Anführungszeichen)
SettingValues = Split(SettingLine, ",") 'ergibt true); oder false); als Ausgabe
' Der Wert wird der Variablen bool übergeben
bool = (SettingValues(1))
' Falls die Variable den Wert true hat, wird dieser in false gedreht
if bool = " true);" then
bool = " false);"
End if

'Zeile neu zusammenbauen
PrefsLines(LineNo) = Setting2 & "," & bool
'gesamte "prefs.js" wieder aus Array zusammensetzen
PrefsLinesNew = Join(PrefsLines, vbCrLf)

Else
'gesuchte Zeile noch nicht vorhanden,
'daher mit allen gewünschten Werten neu erstellen
PrefsLinesNew = Join(PrefsLines, vbCrLf) & vbCrLf & "user_pref(""network.automatic-ntlm-auth.allow-proxies"", false);"
End If

'"prefs.js" schreiben
fso.CreateTextfile(PrefsPath).Write PrefsLinesNew

' ########################################################
'"prefs.js" komplett in Array einlesen ...
PrefsLines = Split(fso.OpenTextFile(PrefsPath).ReadAll, vbCrLf)

' ##############################################################
'... und nach dem gewünschten "Settings3-String" durchsuchen
For i = 0 To UBound(PrefsLines)
If InStr(PrefsLines(i), Setting3) > 0 Then
'gefunden: Zeilennummer merken und Schleife verlassen
LineNo = i
Exit For
End If
Next
'Wenn Zeile bereits vorhanden war, ...
If LineNo <> 0 Then
'... gesamte Zeile auslesen
SettingLine = PrefsLines(LineNo)
'bereits vorhandene Werte auslesen
'(dazu Aufteilung der Zeile anhand der Anführungszeichen)
SettingValues = Split(SettingLine, ",") 'ergibt true); oder false); als Ausgabe
' Der Wert wird der Variablen bool übergeben
bool = (SettingValues(1))
' Falls die Variable den Wert true hat, wird dieser in false gedreht
if bool = " true);" then
bool = " false);"
End if

'Zeile neu zusammenbauen
PrefsLines(LineNo) = Setting3 & "," & bool
'gesamte "prefs.js" wieder aus Array zusammensetzen
PrefsLinesNew = Join(PrefsLines, vbCrLf)

Else
'gesuchte Zeile noch nicht vorhanden,
'daher mit allen gewünschten Werten neu erstellen
PrefsLinesNew = Join(PrefsLines, vbCrLf) & vbCrLf & "user_pref(""network.negotiate-auth.allow-proxies"", false);"
End If

'"prefs.js" schreiben
fso.CreateTextfile(PrefsPath).Write PrefsLinesNew

' ##############################################################

MsgBox "Datei erfolgreich geändert!" , vbInformation ,"Ergänzung prefs.js"