一个验证用户名的正则表达式

求一个验证用户名的正则表达式
各位大哥大姐，晚辈求一个验证用户名的正则表达式，苦苦思索了一个星期还是没有弄出来，本人愚钝，还望大家指教！
VBscript编程要求用户名的字符控制在3至20个之间，由中文、大小写字母、数字、下划线、小数点、减号组成，  必须以中英文或数字开头结尾且下划线、小数点、减号这三个字符中的其中一个的组合不能是连续的 a__a或a--a或a..a 这样的，但可以 a_a.a_a.a_a-a-a-a_a-a.a.a.a这样的。
如果超出这个范围则用户名不通过。
就是一直弄不明白下划线、小数点、减号这三个字符中的其中一个的组合的问题，头都大了
此为不符合的正则：
^.{0,2}$|.{21,}|^[^A-Za-z0-9\u4E00-\u9FA5]|[^\w\u4E00-\u9FA5.-]|([_.-])\1
<script language=vbscript> function regtest(str) Set re = New RegExp re.Pattern = "^.{0,2}$|.{21,}|^[^A-Za-z0-9\u4E00-\u9FA5]|[^\w\u4E00-\u9FA5.-]|([_.-])\1" if re.Test(str) then msgbox("不符合") else msgbox("符合") end if end function </script> <input id=strs value="a_a.a_a.a_a-a-a_a-a" size=40> <input type=button onclick=regtest(strs.value) value="检查">
[Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]
(?!pattern) 
负向预查，在任何不匹配Negative lookahead matches the search string at any point where a string not matching pattern 的字符串开始处匹配查找字符串。这是一个非获取匹配，也就是说，该匹配不需要获取供以后使用。例如'Windows (?!95|98|NT|2000)' 能匹配 "Windows 3.1" 中的 "Windows"，但不能匹配 "Windows 2000" 中的 "Windows"。预查不消耗字符，也就是说，在一个匹配发生后，在最后一次匹配之后立即开始下一次匹配的搜索，而不是从包含预查的字符之后开始