隐藏vbs执行cmd命令的窗口

dim obj_shell
set obj_shell = createobject("wscript.shell")

host = WScript.FullName
If LCase( right(host, len(host)-InStrRev(host,"\")) ) = "wscript.exe" Then
    obj_shell.run "cscript """ & WScript.ScriptFullName & chr(34), 0
    WScript.Quit
End If