'备注：隐藏cmd命令行运行
 '防止出现错误
On Error Resume Next
'vbs代码开始----------------------------------------------
DIM objShell
set objShell=wscript.createObject("wscript.shell")
iReturn=objShell.Run("cmd.exe /C f:\perl\site\1.bat", 0, TRUE)
'vbs代码结束----------------------------------------------