keppler
Mon Jul 25 08:59:39 CDT 2005
ok
thank's
"Dave Patrick" <DSPatrick@nOsPAM.gmail.com> escreveu na mensagem
news:eSnT#ASkFHA.4004@TK2MSFTNGP10.phx.gbl...
> You might ask them about that in vb.general
>
> ---------------------------------
> Set WshShell = CreateObject("WScript.Shell")
>
"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegis
tryTools",
> 1, "REG_DWORD"
> Set WshShell = Nothing
> ---------------------------------
>
> --
> Regards,
>
> Dave Patrick ....Please no email replies - reply in newsgroup.
> Microsoft Certified Professional
> Microsoft MVP [Windows]
>
http://www.microsoft.com/protect
>
> "keppler" wrote:
> | Dave,
> |
> | with the code below a instancia of gpedit is created; as it is that it
> would
> | activate the directive one "Disable registry editing tools" in "User
> | Configuration\Administrative Templates\System"?
> |
> | thank's
> |
> |
> | Dim objApp As MMC20.Application
> | Dim objDoc As MMC20.Document
> | Dim objSnapIns As MMC20.SnapIns
> | Dim objSnapIn As MMC20.SnapIn
> | Dim objView As MMC20.View
> | Dim objNode As MMC20.Node
> | Dim objSN As MMC20.ScopeNamespace
> |
> | Set objApp = New MMC20.Application
> |
> | objApp.Load ("gpedit.msc")
> | objApp.Show
> |
> | Set objDoc = objApp.Document
>
>