Question

我想通过vbscript添加一个快照，我一直有一个问题是获取快照以添加到控制台。它将在Windows 7环境中运行。如果有人能够看到并指引我朝着正确的方向前进，我将非常感激。感谢。

<code>

'Elevated privileges start
'Start of UAC workaround code
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

If WScript.Arguments.length =0 Then
    Set objShell = CreateObject("Shell.Application")
    objShell.ShellExecute "wscript.exe", Chr(34) & _
    WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1
Else


consoleName = "C:\Burnett.msc"

Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(consoleName) Then
    Wscript.Echo "console already exists"
Else
    On Error Resume Next
    Set objMMC = CreateObject("MMC20.Application")
    If err.Number <> 0 Then
        Wscript.Echo "an error occurred. unable to create mmc console"
        Wscript.Quit(0)
    End If

    objMMC.Show
    Set objDoc = objMMC.Document
    objDoc.snapins.add("Local Computer\Non-Administrators")
    if err then
    'Trap the error just after the statement where an error/exception can occur and handle it elegantly
        msgbox("Snap-in Not found")  
        err.clear
    end if
    objDoc.ActiveView.StatusBarText = "Pane 1|Pane 2|Pane 3"
    objMMC.UserControl = 1
    objDoc.Name = consoleName
    objDoc.Save()
End If

Set fso = Nothing


End If 

</code>

Answer 1

“本地计算机\非管理员”只是系统提供的对管理单元特定配置的说明。在这种情况下，实际的管理单元名称是“组策略对象编辑器”。从而消除了代码更改中的错误

objDoc.snapins.add("Local Computer\Non-Administrators")

到

objDoc.snapins.add("Group Policy Object Editor")

不幸的是，只有MMC建立“选择组策略对象”对话框才能实现这一点。然后，您必须使用该对话框手动选择所需的配置。据我所知，没有办法提供Snapins.Add参数来选择本地非管理员用户。

以下代码将完全自动化设置管理单元的过程。但是，它对SendKeys的依赖使它非常脆弱。它适用于我的系统，但您很可能需要修改击键顺序和/或时序延迟，以使其在您的系统上运行。一旦你开始工作，就无法保证它会继续这样做，因为当地条件是可变的，并且可以极大地影响时间。

option explicit

if WScript.Arguments.Named.Exists("elevated") = false then 
  'Launch the script again with UAC permissions
  CreateObject("Shell.Application").ShellExecute "wscript.exe", """" & WScript.ScriptFullName & """ /elevated", "", "runas", 1
  WScript.Quit
end if

Dim mmc : set mmc = WScript.CreateObject("MMC20.Application")
mmc.Show
mmc.UserControl = 1   'to keep MMC open

Dim oShell : set oShell = WScript.CreateObject("Wscript.Shell")
oShell.AppActivate "Console1"
WScript.Sleep 200
oShell.SendKeys "%f"
WScript.Sleep 200
oShell.SendKeys "m"
WScript.Sleep 400
oShell.SendKeys "group{TAB}{ENTER}"
WScript.Sleep 1000
oShell.SendKeys "{TAB}{ENTER}"
WScript.Sleep 1000
oShell.SendKeys "{TAB}{TAB}{TAB}{RIGHT}{TAB}Non{ENTER}" 
WScript.Sleep 1000
oShell.SendKeys "{TAB}{TAB}{ENTER}"
WScript.Sleep 1000
oShell.SendKeys "{TAB}{TAB}{TAB}{TAB}{ENTER}"

使用vbscript编写MMC脚本

1 个答案: