VBScript处理正则表达式

需要写一段VBScript来处理这样一个信息：

给定一个字符串，过滤掉英文字母和下划线。

百度了下相关VBScript语法。第一个VBS代码，贴个纪念下:

Dim re, s
Set re = New RegExp
re.Pattern = "[a-zA-Z_]"  '匹配英文字符和下划线
re.Global = True
s = "abc_DEF提取的中文字符."
MsgBox re.Replace(s, "")  '弹出过滤后的信息