求一个验证用户名的正则表达式
各位大哥大姐，晚辈求一个验证用户名的正则表达式，苦苦思索了一个星期还是没有弄出来，本人愚钝，还望大家指教！
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
[Ctrl+A 全选 注:引入外部Js需再刷新一下页面才能执行]
(?!pattern)
负向预查，在任何不匹配Negativelookaheadmatchesthesearchstringatanypointwhereastringnotmatchingpattern的字符串开始处匹配查找字符串。这是一个非获取匹配，也就是说，该匹配不需要获取供以后使用。例如'Windows(?!95|98|NT|2000)'能匹配"Windows3.1"中的"Windows"，但不能匹配"Windows2000"中的"Windows"。预查不消耗字符，也就是说，在一个匹配发生后，在最后一次匹配之后立即开始下一次匹配的搜索，而不是从包含预查的字符之后开始