vbs以管理员权限运行bat，同时隐藏cmd的黑框

vbs请求管理员运行并且隐藏cmd窗口

cwd = CreateObject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Path
# path中的引号里面 换成自己的bat文件名称
path = cwd & "\RestartInternet.bat"


Set shell = CreateObject("Shell.Application")
# 0 表示 后台运行  1表示 正常运行
# 0 不会显示cmd窗口， 1表示正常显示cmd窗口
shell.ShellExecute path,"","","runas",0
 
WScript.Quit

正常vbs隐藏cmd窗口

set ws=WScript.CreateObject("WScript.Shell")
ws.Run 此处换成自己bat文件名字 ,0'