gistfile1.txt

Set regex = New RegExp
regex.Pattern = "\[[^\[\]]*\]"
regex.Global = True

Set dict = CreateObject("Scripting.Dictionary")
Set fs = CreateObject("Scripting.FileSystemObject")
Set ts = fs.OpenTextFile(WScript.Arguments(0))

While ts.AtEndOfStream = False
	lineData = ts.ReadLine()
	If Left(lineData, 2) = "*p" Then
		Set matches = regex.Execute(lineData)
		For Each match In matches
			If dict.Exists(match.Value) Then
				dict(match.Value) = dict(match.Value) + 1
			Else
				dict.Add match.Value, 1
			End If
		Next
	End If
Wend

ts.Close()

For Each key In dict.Keys
	value = dict(key)
	If value > 1 Then
		WScript.Echo key & " = " & value
	End If
Next

msgbox "done"