Set oIni = CreateObject("JSSys3.IniEdit")
iniFile = "C:\Temp\test.ini"
CreateObject("Scripting.FileSystemObject").CreateTextFile iniFile

str = "key1=value1" & Chr(0) & "key2=value2" & Chr(0)
errCode = oIni.WriteIniSection(iniFile, "NewSection", str) ' перезаписываает всю секцию, если она есть
errCode = oIni.WriteIniVal(iniFile, "NewSection", "key3", "value3") ' запись значения
errCode = oIni.WriteIniVal(iniFile, "NewSection", "key4", "value4")
errCode = oIni.WriteIniVal(iniFile, "NewSection", "key4", "null") ' удаление параметра
errCode = oIni.WriteIniSection(iniFile, "New", "key1=value1" & Chr(0)) ' запись секции
errCode = oIni.WriteIniVal(iniFile, "New", "null", "null") ' удаление секции

SectionNames = oIni.GetIniSectionNames(iniFile) ' чтение имён всех секций
SectionNames = Mid(SectionNames, 1, Len(SectionNames)-1) ' убрать последний Chr(0)
For Each SectionName In Split(SectionNames, Chr(0)) ' обход секций
    WScript.Echo SectionName ' имя секции
    SectionKeys = oIni.GetIniSectionKeys(iniFile, SectionName) ' чтение ключей секции
    SectionKeys = Mid(SectionKeys, 1, Len(SectionKeys)-1) ' убрать последний Chr(0)
    For Each SectionKey In Split(SectionKeys, Chr(0)) ' обход ключей
        val = oIni.GetIniVal(iniFile, SectionName, SectionKey)
        WScript.Echo "  " & SectionKey & " = " & val ' вывод пары ключ=значение
    Next
    SectionVals = oIni.GetIniSectionVals(iniFile, SectionName) ' чтение пар ключ=значение секции
    SectionVals = Mid(SectionVals, 1, Len(SectionVals)-1) ' убрать последний Chr(0)
    For Each SectionVal In Split(SectionVals, Chr(0)) ' обход пар
        WScript.Echo "  " & SectionVal ' вывод пары ключ=значение
    Next
Next