Пример могу вам подбросить конечно:Создаете файл с расширениям vbsconst HKEY_LOCAL_MACHINE = &H80000002strComputer = "."Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\" &_ strComputer & "\root\default:StdRegProv")strKeyPath = "SOFTWARE\System Admin Scripting Guide"strValueName = "String Value Name"strValue = "string value"oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValuestrValueName = "DWORD Value Name"dwValue = 82oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue