VBA 怎样用管理员身份打开CMD程序

美好未来686

VBA 怎样用管理员身份打开CMD程序，我直接打开CMD的权限低了，很多命令不能用，比如telnet

wdpfox

无力相助，只能帮顶！

美好未来686

哈哈！版主们啊！帮帮忙啊

xyz74sc

上次就跟你说了，权限问题，如果VBA能有system权限的话，宏病毒就满天飞了，懂？

美好未来686

你我去，你的意思就是没有办法telnet了！不能提示权限！

美好未来686

如果直接打开运行，在cmd那还不是一样的可以病毒满天飞

loquat

请发代码！！！

lss001

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
    ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Sub zcbcz()
        ShellExecute 0, "runas", "cmd.exe", 0, 0, 1
'其中runas即管理员身份！
End Sub

永远的船长

lss001 发表于 2019-4-9 09:02
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As  ...

老师  怎么让输入命令，你这个和一般cmd调用不一样，不会弄让执行哪个命令，比如注册G:\1\a.dll

lss001

永远的船长 发表于 2020-4-6 11:08
老师  怎么让输入命令，你这个和一般cmd调用不一样，不会弄让执行哪个命令，比如注册G:\1\a.dll

Sub Regsvrs() '以下以注册VBAniGIF.OCX控件为例
    Set FSO = CreateObject("Scripting.FileSystemObject")
    f = ThisWorkbook.Path & "\VBAniGIF.OCX" '控件文件夹/控件名称
    x = FSO.FolderExists("C:\Windows\syswow64")
    If x Then '判断windows系统是64位还是32位
        t = "C:\Windows\syswow64\VBAniGIF.OCX"
    Else: t = "C:\Windows\system32\VBAniGIF.OCX"
    End If
    Set sa = CreateObject("Shell.Application") '以管理员身份运行cmd
    sa.ShellExecute "cmd", " /c Copy """ & f & """, """ & t & """", , "runas", 1
    sa.ShellExecute "cmd", " /c Regsvr32 /s " & t, , "runas", 1
    MsgBox "AniGif控件已成功注册，现在可以使用了!"
End Sub