VBS 实现资源管理器右建菜单操作

fastslz

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

复制代码

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

复制代码

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

复制代码

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

复制代码

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