SeT
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Dev_Dimon
права чтобы могли шарить чтоли?!
на тебе вбсник...если че не понятно там ссылка в теле вбсника
Чтоб шарили...
_____________________________________________________________________________
'http://www.microsoft.com/technet/scriptcenter/scripts/os/registry/default.mspx?mfr=true
'Создание ветки реестра
Const HKEY_CLASSES_ROOT = &H80000000
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\default:StdRegProv")
strKeyPath = "CLSID\{f81e9010-6ea4-11ce-a7ff-00aa003ca9f6}\InProcServer32"
oReg.CreateKey HKEY_CLASSES_ROOT,strKeyPath
'Ветка создана
'Создание Параметров ветки
'Const HKEY_CLASSES_ROOT = &H80000000
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\default:StdRegProv")
strKeyPath = "CLSID\{f81e9010-6ea4-11ce-a7ff-00aa003ca9f6}\InProcServer32"
'Создание REG_SZ
strValueName = "ThreadingModel"
'Ставим параметр REG_SZ в strValueName
strValue = "Apartment"
'Ставим значение REG_SZ в strValueName
oReg.SetStringValue HKEY_CLASSES_ROOT,strKeyPath,strValueName,strValue
'REG_SZ создано
strKeyPath = "CLSID\{f81e9010-6ea4-11ce-a7ff-00aa003ca9f6}\InProcServer32"
'Создание REG_SZ
strValueName = ""
'Ставим параметр REG_SZ в strValueName
strValue = "ntshrui.dll"
'Ставим значение REG_SZ в strValueName
oReg.SetStringValue HKEY_CLASSES_ROOT,strKeyPath,strValueName,strValue
'REG_SZ создано
'Создание REG_DWORD
'strValueName = "DWORD Value Name"
'dwValue = 82
'oReg.SetDWORDValue HKEY_CLASSES_ROOT,strKeyPath,strValueName,dwValue
__________________________________________________________________________
Чтоб не шарили
__________________________________________________________________________
'http://www.microsoft.com/technet/scriptcenter/scripts/os/registry/default.mspx?mfr=true
Const HKEY_CLASSES_ROOT = &H80000000
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002
Const HKEY_USERS = &H80000003
strComputer = "."
strKeyPath = "CLSID\{f81e9010-6ea4-11ce-a7ff-00aa003ca9f6}"
'вставляем значение ветки которое нужно удалить
Set objRegistry = GetObject("winmgmts:\\" & _
strComputer & "\root\default:StdRegProv")
DeleteSubkeys HKEY_CLASSES_ROOT, strKeypath
'Исправляем на нужные значения HKEY_CLASSES_ROOT
Sub DeleteSubkeys(HKEY_CLASSES_ROOT, strKeyPath)
objRegistry.EnumKey HKEY_CLASSES_ROOT, strKeyPath, arrSubkeys
If IsArray(arrSubkeys) Then
For Each strSubkey In arrSubkeys
DeleteSubkeys HKEY_CLASSES_ROOT, strKeyPath & "\" & strSubkey
Next
End If
objRegistry.DeleteKey HKEY_CLASSES_ROOT, strKeyPath
End Sub
__________________________________________________________________________
Добавлено:
DEMON87
А GPO для чего? Сделай OUшку и затолкай туда только 50 юзероф!
Ээээ...а DHCP не пробовали юзать для раздачи ипоф?! И той же ГПО запретить вообще лазить в сетевый настройки! |
Всего записей: 433 | Зарегистр. 05-02-2004 | Отправлено: 16:05 05-10-2009 | Исправлено: SeT, 16:06 05-10-2009 |
|
