批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程
[批处理文件精品]批处理版照片整理器[批处理文件精品]纯批处理备份&还原驱动在线第三方下载
返回列表 发帖

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

  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,结果可能很惨

返回列表