问：脚本中如何对数组元素或者拼接的字符串进行去重操作？
答：可以通过vbs脚本的数据字典机制进行去重，参考以下对拼接的字符串去重函数。
function removeduplicationbydictionary(byref str , byval separator)
dim aold, anew, dic '声明数组、字典
set dic = createobject("scripting.dictionary") '创建字典
sold = str '旧字符
aold = split(sold, separator) '将字符串分割后装入数组
for i = lbound(aold) to ubound(aold) '遍历数组中的元素
dic(aold(i)) = vbnullstring '利用字典key的不重复性去重
next
anew = dic.keys '将字典的key装入数组
snew = join(anew, separator) '将数组连接成字符串
str = snew
end function