czjt1234

运行命令并带参数

p = """C:\Program Files\Google\Chrome\Application\chrome.exe"" https://www.baidu.com/"
set Wshell = CreateObject("Wscript.Shell")
Wshell.Run p

wscript.Sleep 3000
Wshell.SendKeys "123"
wscript.Sleep 200
Wshell.SendKeys "{TAB}"
wscript.Sleep 200
Wshell.SendKeys "cszlpa"
wscript.Sleep 200
Wshell.SendKeys "{ENTER}"
复制代码

czjt1234

Call RunAsAdmin()    '以管理员权限运行vbs

Sub RunAsAdmin()
    Dim oWshShell, oShell, s, i
    Set oWshShell = CreateObject("WScript.Shell")
    If oWshShell.Run("fltmc.exe", 0, True) = 0 Then Exit Sub
    s = """" & WScript.ScriptFullName & """ "
    For Each i In WScript.Arguments
        If InStr(i, " ") > 0 Then i = """" & i & """"
        s = s & i & " "
    Next
    Set oShell = CreateObject("Shell.Application")
    oShell.ShellExecute "WScript.exe", Left(s, Len(s) - 1), , "runas"
    WScript.Quit()
End Sub
复制代码

    fltmc.exe是Windows自带的程序，有管理员权限时能正常运行，返回值为0
    在winxp、win7、win10、win11中均测试通过

    注意，以管理员权限运行vbs，并不是绕过管理员权限限制
    所以还是可能会有是否允许继续运行的提示