killapeps
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Господа имеется проблемка, необходимо добавлять и удалять периодически некоторые параметры реестра все они в архиве, хотелось бы все это делать через vbs скриптик, то есть каждое дейтвие по отдельности - всего 4 скрипта, но я не силен, выручайте
P.S. не разобрался как прикрепить файл потому выложил у ся на сайте
Нашел то что мне нужно, вот кто бы объяснил как мне мои файлы реестра сюда прописать?
Код:
'==========================================================================
'
' NAME: Reg.vbs
'
' AUTHOR: Dennis C. Eijkelboom
' DATE : 23-12-2010
'
' SYNTAX:
' cscript reg.vbs <regfilepaths>
'
' EXAMPLE:
' cscript reg.vbs proxyserver.reg searchscopes.reg
'
'==========================================================================
Option Explicit
Dim FileSystemObject: Set FileSystemObject = CreateObject("Scripting.FileSystemObject")
Dim objWSHShell: Set objWSHShell = CreateObject("WScript.Shell")
Call Main
Set FileSystemObject = Nothing
Set objWSHShell = Nothing
Sub Main 'Process all registry export files that are passed through as commandline parameters
Const ForReading = 1
Const OpenAsUnicode = -1
Dim RegFile
Dim argument
For Each argument In WScript.Arguments
Set RegFile = FileSystemObject.OpenTextFile(argument,ForReading,,OpenAsUnicode)
ProcessRegFile RegFile
RegFile.Close
Set RegFile = Nothing
Next
End Sub
Sub ProcessRegFile(RegFile) 'Read through the registry file and write each registry value
Dim line: line = ""
Dim key: key = ""
Dim name: name = ""
Dim value: value = ""
While Not RegFile.AtEndOfStream
line = RegFile.ReadLine
If Left(line,1) = "[" Then 'key line
key = Mid(line,2,Len(line)-2)
ElseIf Left(line,1) = """" Then 'value line
line = Mid(line,2,Len(line)-1)
name = Left(line,InStr(line,"=")-2)
value = Mid(line,Len(name)+3)
If Len(key) > 0 And Len(name) > 0 And Len(value) > 0 Then
ProcessRegValue key,name,value
End If
End If
Wend
End Sub
Sub ProcessRegValue(key,name,value) 'Write the registry value under passed name and key
key = Replace(Replace(key,"HKEY_lOCAL_MACHINE","HKLM"),"HKEY_CURRENT_USER","HKCU")
If Left(value,6) = "dword:" Then
value = Mid(value,7)
Dim wordvalue: wordvalue = CLng("&H" & value)
objWSHShell.RegWrite key & "\" & name,wordvalue,"REG_DWORD"
Else
value = Replace(Mid(value,2,Len(value)-2),"\\","\")
objWSHShell.RegWrite key & "\" & name,value,"REG_SZ"
End If
End Sub
|
|
