<script language="vbscript">
Dim Text, regEx, RetStrText = "##用 户 名## wanglin##用 户 名## 张平"      ' 定义字符串。Set regEx = New RegExp 
regEx.Pattern = "##用 户 名##\t([^#]*)" '模式
regEx.IgnoreCase = False '忽略大小写
regEx.Global = True '全局替换
Set Matches = regEx.Execute(Text)For Each Match in Matches      ' 对 Matches 集合进行迭代。
    RetStr = RetStr & "Match found at position "
    RetStr = RetStr & Match.FirstIndex & ". Match Value is '"
    RetStr = RetStr & Match.Value & "'." & vbCRLF
msgbox RetStr
Next</script>