[原创] VBS 实现资源管理器右建菜单操作

fastslz

'Win7获取C:\Windows\System32文件夹管理员权限
Set sApp = CreateObject("Shell.Application")
Set oFolder = sApp.Namespace("C:\Windows\System32\")
For Each verb in oFolder.Self.Verbs
    If verb.Name = "管理员取得所有权" Then verb.DoIt
Next
复制代码

'Win7以管理员身份运行记事本notepad
Set sApp = CreateObject("Shell.Application")
Set oFolder = sApp.Namespace("C:\Windows\System32\")
Set oApp = oFolder.ParseName("notepad.exe")
For Each verb in oApp.Verbs
    If verb.Name = "以管理员身份运行(&A)" Then verb.DoIt
Next
复制代码

'Win7 WinXP将记事本notepad附加到「开始」菜单
Set sApp = CreateObject("Shell.Application")
Set oFolder = sApp.Namespace("C:\Windows\System32\")
Set oApp = oFolder.ParseName("notepad.exe")
For Each verb in oApp.Verbs
    If InStr(verb.Name, "附到「开始」菜单") Then verb.DoIt
Next
复制代码

'打印记事本notepad资源管理器右建菜单可操作内容（Win7 WinXP通用）
Set sApp = CreateObject("Shell.Application")
Set oFolder = sApp.Namespace("C:\Windows\System32\")
Set oApp = oFolder.ParseName("notepad.exe")
For Each verb in oApp.Verbs
    WScript.echo verb.Name
Next
复制代码

最后奉劝大家For Each ...不要直接verb.DoIt，结果可能很惨