[Iska]

Ragnazar, если не совсем понятно, вот пример:

читать дальше »

Код:

Option Explicit

Dim objDictionary
Dim elem

Dim strLine


Set objDictionary = WScript.CreateObject("Scripting.Dictionary")

With WScript.CreateObject("Scripting.FileSystemObject")
	With .OpenTextFile("E:\Песочница\0183\var.cfg")
		For Each strLine In Split(.ReadAll(), vbCrLf)
			objDictionary.Add Split(strLine, "=")(0), Split(strLine, "=")(1)
		Next
		
		.Close
	End With
End With

For Each elem In objDictionary.Keys
	WScript.Echo "Key:", elem, vbTab, "Value:", objDictionary.Item(elem)
Next

objDictionary.RemoveAll
Set objDictionary = Nothing

WScript.Quit 0

Если же понадобится заполнять некий шаблон — Вы можете проверять существование путём «objDictionary.Exists(<Key>)».