reg2batcmd---vbs版本

secowu

1. 
   
2. '------------------------------------------------------------------------------
   
3. '名称:Reg2Bat.VBS
   
4. '功能:REG文件转换为BAT、CMD文件。
   
5. '     REG命令功能有限,仅支持常用类型。
   
6. '      (REG_SZ、REG_DWORD、REG_BINARY、
   
7. '         REG_EXPAND_SZ、REG_MULTI_SZ)
   
8. '
   
9. '                                   By Slore
   
10. '                             更新于:2009-12-06
    
11. '
    
12. '如果对脚本有任何意见和建议,可发送相关信息至:
    
13. '                              slorelee@yahoo.com.cn
    
14. '---------------------------
    
15. 'Reg2Bat By Slore
    
16. '---------------------------
    
17. '命令行参数说明(不区分大小写)
    
18. '/?、/h、/help  查看此帮助信息
    
19. '/i:RegFileName 指定要转换的注册表文件路径
    
20. '/o:BatFileName 指定转换后的批处理文件路径
    
21. '可选参数
    
22. '/S:Separator   REG_MULTI_SZ 数据字符串中用作分隔符的字符
    
23. '               仅限一个字符,默认"\0"用作分隔符
    
24. '/Q             安静模式,不弹出错误提示
    
25. '/NF            转换后REG命令无/F参数
    
26. '/NH            忽略注册表文件头检测
    
27. '
    
28. '例如:
    
29. '简易模式:CScript Reg2Bat.vbs [/i:]slore.reg /S:轩 /Q
    
30. '         省略批处理文件路径,将输出为注册表文件同名文件。
    
31. '经典模式:CScript Reg2Bat.vbs slore.reg slore.bat /S:轩 /Q
    
32. '         其中注册表文件路径和批处理文件路径顺序不可调换。
    
33. '标准模式:CScript Reg2Bat.vbs /i:slore.reg /o:slore.bat /S:轩 /Q
    
34. '         其中/i:、/o:、/S:中的冒号不可省略,顺序可变。
    
35. '---------------------------
    
36. Const ForReading = 1
    
37. Const ForWriting = 2
    
38. Const ForAppending = 8
    
39. Const blnOverWrite = True
    
40. Const adTypeBinary = 1
    
41. Const adModeReadWrite = 3
    
42. Const ANSI = 0
    
43. Const Unicode = - 1
    
44. Const REG_SEPARATOR = "\0"       '默认分隔符
    
45. Const BatHead = "@echo off"      '转换后的批处理文件头
    
46. Const BatFileExt = "bat"         '批处理文件扩展名
    
47. Const IgnoreRegHead = False      '忽略注册表文件头检测
    
48. Dim RegHexType(10)
    
49. RegHexType(0) = "REG_NONE":RegHexType(1) = "REG_SZ"
    
50. RegHexType(2) = "REG_EXPAND_SZ":RegHexType(3) = "REG_BINARY"
    
51. RegHexType(4) = "REG_DWORD":RegHexType(5) = "REG_DWORD_BIG_ENDIAN"
    
52. RegHexType(6) = "REG_LINK":RegHexType(7) = "REG_MULTI_SZ"
    
53. RegHexType(8) = "REG_RESOURCE_LIST":RegHexType(9) = "REG_FULL_RESOURCE_DESCRIPTOR"
    
54. Dim RegSeptr
    
55. Dim blnForce,blnSilent
    
56. blnForce = True
    
57. blnSilent = False
    
58. Dim RegFile,BatFile
    
59. Dim objFSO
    
60. Set objFSO = CreateObject("Scripting.FileSystemObject")
    
61. '参数处理
    
62. With WSH.Arguments
    
63.     If .Count <> 0 Then
    
64.         If .Named.Exists("?") Then ShowHelp
    
65.         If .Named.Exists("h") Then ShowHelp
    
66.         If .Named.Exists("help") Then ShowHelp
    
67.         If .Named.Exists("i") Then RegFile = .Named.Item("i")
    
68.         If .Named.Exists("o") Then BatFile = .Named.Item("o")
    
69.         If .Named.Exists("s") Then RegSeptr = .Named.Item("s")
    
70.         If .Named.Exists("q") Then blnSilent = True
    
71.         If .Named.Exists("nf") Then blnForce = False
    
72.         If .Named.Exists("nh") Then IgnoreRegHead = True
    
73.         If .Unnamed.Count > 0 Then
    
74.             RegFile = .Unnamed.Item(0)
    
75.             If Not objFSO.FileExists(RegFile) Then WSH.Quit
    
76.             If .Unnamed.Count > 1 Then
    
77.                 BatFile = .Unnamed.Item(1)
    
78.             Else
    
79.                 BatFile = Left(RegFile,InstrRev(RegFile,".")) & "bat"
    
80.             End If
    
81.         End If
    
82.     End If
    
83. End With
    
84. If Len(RegSeptr) = 0 Then
    
85.     RegSeptr = REG_SEPARATOR
    
86. Else
    
87.     RegSeptr = Left(RegSeptr,1)
    
88. End If
    
89. '选择注册表文件
    
90. If RegFile = "" Then
    
91.     RegFile = OpenFile(".","注册表文件(*.reg)|*.reg")
    
92.     If RegFile = "" Then WSH.Quit
    
93. Else
    
94.     BatFile = Left(RegFile,InstrRev(RegFile,".")) & BatFileExt
    
95. End If
    
96. If Not objFSO.FileExists(RegFile) Then WSH.Quit
    
97. '选择批处理文件
    
98. If BatFile = "" Then BatFile = OpenFile(".","批处理文件(*." & BatFileExt & ")|*." & BatFileExt)
    
99. If BatFile = "" Then WSH.Quit
    
100. '获取注册表文件编码
     
101. Dim FileEncoding
     
102. FileEncoding = GetEncoding(RegFile)
     
103. If FileEncoding = "ANSI" Then
     
104.     OpenFormat = ANSI
     
105. ElseIf FileEncoding = "Unicode" Then
     
106.     OpenFormat = Unicode
     
107. Else
     
108.     If Not blnSilent Then MsgBox "注册表文件的编码不正确。",vbInformation,"文件编码:" & FileEncoding
     
109.     WSH.Quit
     
110. End If
     
111. '格式化注册表文件
     
112. Dim RegStr,RegLine
     
113. Set objFile = objFSO.OpenTextFile(RegFile,ForReading,False,OpenFormat)
     
114. Do Until objFile.AtEndOfStream
     
115.     RegLine = MyTrim(objFile.ReadLine)
     
116.     If RegLine <> "" Then '清除空行
     
117.         'If Left(RegLine,1) <> ";" Then RegStr = RegStr & RegLine & vbCrLf '清除注释行
     
118.         RegStr = RegStr & RegLine & vbCrLf
     
119.     End If
     
120. Loop
     
121. objFile.Close
     
122. '合并hex(?)类型多行数据
     
123. Dim hStr,hPos,RegChar
     
124. hPos = InStr(1,RegStr,"," & vbCrLf)
     
125. Do While hPos > 0
     
126.     RegChar = Mid(RegStr,hPos + 4,1)
     
127.     If InStr(1,"[@""",RegChar) > 0 Then
     
128.         RegStr = Left(RegStr,hPos - 1) & Mid(RegStr,hPos + 2)
     
129.     ElseIf RegChar = ";" Then
     
130.         RemEnd = InStr(hPos + 5,RegStr,vbCrLf)
     
131.         If RemEnd = 0 Then
     
132.             RegStr = Left(RegStr,hPos - 1)
     
133.         Else
     
134.             RegStr = Left(RegStr,hPos) & Mid(RegStr,RemEnd + 2)
     
135.         End If
     
136.     Else
     
137.         RegStr = Left(RegStr,hPos) & Mid(RegStr,hPos + 4)
     
138.     End If
     
139.     hPos = InStr(hPos + 4,RegStr,"," & vbCrLf)
     
140. Loop
     
141. '替换主键为缩写
     
142. RegStr = Replace(RegStr,vbCrLf & "[HKEY_LOCAL_MACHINE",vbCrLf & "[HKLM")
     
143. RegStr = Replace(RegStr,vbCrLf & "[HKEY_CURRENT_USER",vbCrLf & "[HKCU")
     
144. RegStr = Replace(RegStr,vbCrLf & "[HKEY_CLASSES_ROOT",vbCrLf & "[HKCR")
     
145. RegStr = Replace(RegStr,vbCrLf & "[HKEY_USER",vbCrLf & "[HKU")
     
146. RegStr = Replace(RegStr,vbCrLf & "[HKEY_CUREENT_CONFIG",vbCrLf & "[HKCC")
     
147. RegStr = Replace(RegStr,vbCrLf & "[-HKEY_LOCAL_MACHINE",vbCrLf & "[-HKLM")
     
148. RegStr = Replace(RegStr,vbCrLf & "[-HKEY_CURRENT_USER",vbCrLf & "[-HKCU")
     
149. RegStr = Replace(RegStr,vbCrLf & "[-HKEY_CLASSES_ROOT",vbCrLf & "[-HKCR")
     
150. RegStr = Replace(RegStr,vbCrLf & "[-HKEY_USER",vbCrLf & "[-HKU")
     
151. RegStr = Replace(RegStr,vbCrLf & "[-HKEY_CUREENT_CONFIG",vbCrLf & "[-HKCC")
     
152. '对格式化后的注册表文件进行转换
     
153. Dim RegLines,n
     
154. RegLines = Split(RegStr,vbCrLf)
     
155. n = UBound(RegLines)
     
156. If Not IgnoreRegHead Then
     
157. '检验文件头
     
158.     If RegLines(0) <> "REGEDIT4" And _
     
159.         RegLines(0) <> "Windows Registry Editor Version 5.00" Then
     
160.         If Not blnSilent Then MsgBox "不是合法注册表文件头",vbInformation,"错误"
     
161.         WSH.Quit
     
162.     End If
     
163. End If
     
164. Dim RegCommand,BatStr
     
165. Dim i,RegKey,RegVal,RegType,RegData
     
166. If blnForce Then sForce = " /f" Else sForce = ""
     
167. Dim o '为1是删除,为0是添加
     
168. Dim vPos
     
169. Dim HeadChar,LastHeadChar
     
170. LastHeadChar = ""
     
171. For i = 1 To n
     
172.     HeadChar = Left(RegLines(i),1)
     
173.     If HeadChar = "[" Then
     
174.         If LastHeadChar = "[" And o = 0 Then '添加项
     
175.             BatStr = BatStr & RegCommand & RegKey & sForce & vbCrLf
     
176.         End If
     
177.         If Mid(RegLines(i),2,1) = "-" Then
     
178.             RegCommand = "reg delete "
     
179.             o = 1
     
180.         Else
     
181.             RegCommand = "reg add "
     
182.             o = 0
     
183.         End If
     
184.         RegKey = """" & Mid(RegLines(i),2 + o,Len(RegLines(i)) - 2 - o) & """"
     
185.         If o = 1 Then '删除项
     
186.             BatStr = BatStr & RegCommand & RegKey & sForce & vbCrLf
     
187.             RegKey = ""
     
188.         End If
     
189.     ElseIf HeadChar = "@" And (Not Len(RegKey)) Then
     
190.         RegLines(i) = Replace(RegLines(i),"\",vbNullChar)
     
191.         RegVal = " /ve "
     
192.         GetTD Replace(Mid(RegLines(i),3),vbNullChar,""),RegType,RegData
     
193.         If RegData = "-" Then
     
194.             BatStr = BatStr & "reg delete " & RegKey & " /ve " & sForce & vbCrLf
     
195.         Else
     
196.             If RegType <> "REG_SZ" Then
     
197.                 RegType = " /t " & RegType
     
198.             Else
     
199.                 RegType = ""
     
200.             End If
     
201.             BatStr = BatStr & "reg add " & RegKey & " /ve" & RegType & " /d " & RegData & sForce & vbCrLf
     
202.         End If
     
203.     ElseIf HeadChar = """" And (Not Len(RegKey)) Then
     
204.         RegLines(i) = Replace(RegLines(i),"\",vbNullChar)
     
205.         vPos = InStr(2,RegLines(i),"""=")
     
206.         If vPos > 2 Then
     
207.             If Mid(RegLines(i),vPos - 1,1) = "" Then
     
208.                 Do Until Mid(RegLines(i),vPos - 1,1) <> ""
     
209.                     vPos = InStr(vPos + 2,RegLines(i),"""=")
     
210.                     If vPos = 0 Then Exit Do
     
211.                 Loop
     
212.             End If
     
213.             If vPos <> 0 Then
     
214.                 RegVal = Replace(Left(RegLines(i),vPos),vbNullChar,"")
     
215.                 RegVal = RegSpe(RegVal,0)
     
216.                 GetTD Replace(Mid(RegLines(i),vPos + 2),vbNullChar,""),RegType,RegData
     
217.                 If RegData = "-" Then
     
218.                     BatStr = BatStr & "reg delete " & RegKey & " /v " & RegVal & sForce & vbCrLf
     
219.                 Else
     
220.                     If RegType <> "REG_SZ" Then
     
221.                         RegType = " /t " & RegType
     
222.                     Else
     
223.                         RegType = ""
     
224.                     End If
     
225.                     BatStr = BatStr & "reg add " & RegKey & " /v " & RegVal & RegType & " /d " & RegData & sForce & vbCrLf
     
226.                 End If
     
227.             End If
     
228.         End If
     
229.     ElseIf HeadChar = ";" Then  '注释内容处理(仅支持纯注释行,并且不在Hex数据中间。)
     
230.         BatStr = BatStr & "rem " & Mid(RegLines(i),2) & vbCrLf
     
231.         HeadChar = LastHeadChar
     
232.     End If
     
233.     LastHeadChar = HeadChar
     
234. Next
     
235. '保存为批处理文件
     
236. If Len(BatHead) Then BatStr = BatHead & vbCrLf & BatStr
     
237. If LCase(Right(BatFile,4)) <> "." & BatFileExt Then BatFile = BatFile & "." & BatFileExt
     
238. Set objFile = objFSO.CreateTextFile(BatFile,blnOverWrite)
     
239. objFile.Write BatStr
     
240. objFile.Close
     
241. Sub ShowHelp()
     
242.     MsgBox "命令行参数说明(不区分大小写)" & vbCrLf & _
     
243.             "/?、/h、/help  查看此帮助信息" & vbCrLf & _
     
244.              "/i:RegFileName 指定要转换的注册表文件路径" & vbCrLf & _
     
245.               "/o:BatFileName 指定转换后的批处理文件路径" & vbCrLf & _
     
246.                "可选参数" & vbCrLf & _
     
247.                 "/S:Separator   REG_MULTI_SZ 数据字符串中用作分隔符的字符" & vbCrLf & _
     
248.                  "               仅限一个字符,默认""\0""用作分隔符" & vbCrLf & _
     
249.                   "/Q             安静模式,不弹出错误提示" & vbCrLf & _
     
250.                    "/NF            转换后REG命令无/F参数" & vbCrLf & _
     
251.                     "/NH            忽略注册表文件头检测" & vbCrLf & vbCrLf & _
     
252.                      "例如:" & vbCrLf & _
     
253.                       "简易模式:CScript Reg2Bat.vbs [/i:]slore.reg /S:轩 /Q" & vbCrLf & _
     
254.                        "         省略批处理文件路径,将输出为注册表文件同名文件" & vbCrLf & _
     
255.                         "经典模式:CScript Reg2Bat.vbs slore.reg slore.bat /S:轩 /Q" & vbCrLf & _
     
256.                          "         其中注册表文件路径和批处理文件路径顺序不可调换。" & vbCrLf & _
     
257.                           "标准模式:CScript Reg2Bat.vbs /i:slore.reg /o:slore.bat /S:轩 /Q" & vbCrLf & _
     
258.                            "         其中/i:、/o:、/S:中的冒号不可省略,顺序可变。" _
     
259.                             ,vbInformation,"Reg2Bat By Slore"
     
260.     WSH.Quit
     
261. End Sub
     
262. '---------------------------------自定义函数-------------------------------
     
263. '打开文件函数
     
264. '参数:初始路径,文件类型过滤器
     
265. Function OpenFile(IntDir,Fltr)
     
266.     Dim objDialog
     
267.     Set objDialog = CreateObject("UserAccounts.CommonDialog")
     
268.     objDialog.Filter = Fltr
     
269.     objDialog.InitialDir = IntDir
     
270.     intResult = objDialog.ShowOpen
     
271.     If intResult Then
     
272.         OpenFile = objDialog.FileName
     
273.     Else
     
274.         OpenFile = ""
     
275.     End If
     
276. End Function
     
277. '检测文本文件编码
     
278. Function GetEncoding(FileName)
     
279.     Dim objStreamR,HeadBin,HeadBytes(1)
     
280.     Set objStreamR = CreateObject("Adodb.Stream")
     
281.     objStreamR.Type = adTypeBinary
     
282.     objStreamR.Mode = adModeReadWrite
     
283.     objStreamR.Open
     
284.     objStreamR.LoadFromFile FileName
     
285.     HeadBin = objStreamR.Read(2)
     
286.     objStreamR.Close
     
287.     HeadBytes(0) = AscB(MidB(HeadBin,1,1))
     
288.     HeadBytes(1) = AscB(MidB(HeadBin,2,1))
     
289.     GetEncoding = "ANSI"
     
290.     If HeadBytes(0) = &HFF And HeadBytes(1) = &HFE Then GetEncoding = "Unicode"
     
291.     If HeadBytes(0) = &HFE And HeadBytes(1) = &HFF Then GetEncoding = "Unicode Big Endian"
     
292.     If HeadBytes(0) = &HEF And HeadBytes(1) = &HBB Then GetEncoding = "UTF-8"
     
293. End Function
     
294. '剔除字符串两边的Tab字符和空格
     
295. Function MyTrim(iStr)
     
296.     Dim sPos,ePos
     
297.     sPos = 1
     
298.     For i = 1 To Len(iStr)
     
299.         If Mid(iStr,i,1) = vbTab or Mid(iStr,i,1) = " " Then
     
300.             sPos = i + 1
     
301.         Else
     
302.             Exit For
     
303.         End If
     
304.     Next
     
305.     ePos = Len(iStr)
     
306.     For i = Len(iStr) To 1 Step - 1
     
307.         If Mid(iStr,i,1) = vbTab or Mid(iStr,i,1) = " " Then
     
308.             ePos = i - 1
     
309.         Else
     
310.             Exit For
     
311.         End If
     
312.     Next
     
313.     If (ePos - sPos + 1) < 0 Then
     
314.         MyTrim = ""
     
315.         Exit Function
     
316.     End If
     
317.     MyTrim = Mid(iStr,sPos,ePos - sPos + 1)
     
318. End Function
     
319. Sub GetTD(iStr,oType,oData)
     
320.     Dim i
     
321.     oType = "":oData = ""
     
322.     If iStr = "" Then  Exit Sub
     
323.     If iStr = "-" Then oData = "-":Exit Sub
     
324.     If Left(iStr,1) = """" Then
     
325.         oType = "REG_SZ"
     
326.         oData = RegSpe(iStr,0)
     
327.     ElseIf LCase(Left(iStr,4)) = "hex:" Then
     
328.         oType = "REG_BINARY"
     
329.         oData = """" & Replace(Mid(iStr,5),",","") & """"
     
330.     ElseIf LCase(Left(iStr,6)) = "dword:" Then
     
331.         oType = "REG_DWORD"
     
332.         oData = Hex2Dec(Mid(iStr,7))
     
333.     Else
     
334.         For i = 0 To 9
     
335.             If LCase(Left(iStr,7)) = "hex(" & i & "):" Then
     
336.                 oType = RegHexType(i)
     
337.                 If (i = 1) or (i = 2) or (i = 3) or (i = 7) Then
     
338.                     oData = RegHexToAscii(Replace(Mid(iStr,8),",",""),i,RegSeptr)
     
339.                 Else
     
340.                     oData = """对不起,这是不支持的类型。"""
     
341.                 End If
     
342.                 Exit For
     
343.             End If
     
344.         Next
     
345.     End If
     
346. End Sub
     
347. Function RegSpe(iStr,t)
     
348.     Dim i,f,QPos
     
349.     If Left(iStr,1) = """" Then
     
350.         RegSpe = Mid(iStr,2,Len(iStr) - 2) '去除双引号
     
351.     Else
     
352.         RegSpe = iStr
     
353.     End If
     
354.     '反斜杠与引号字符串处理
     
355.     QPos = - 1
     
356.     Do Until QPos = 0
     
357.         QPos = InstrRev(RegSpe,"""",QPos)
     
358.         If QPos = 0 Then Exit Do
     
359.         f = t
     
360.         For i = QPos To 1 Step - 1
     
361.             If Mid(RegSpe,i,1) = "" Then
     
362.                 If f = 1 Then
     
363.                     RegSpe = Left(RegSpe,i) & "" & Mid(RegSpe,i + 1)
     
364.                 Else
     
365.                     f = 1
     
366.                 End If
     
367.             Else
     
368.                 Exit For
     
369.             End If
     
370.         Next
     
371.         QPos = i
     
372.     Loop
     
373.     For i = Len(RegSpe) To 1 Step - 1
     
374.         If Mid(RegSpe,i,1) = "" Then
     
375.             RegSpe = RegSpe & ""
     
376.         Else
     
377.             Exit For
     
378.         End If
     
379.     Next
     
380.     '百分号字符处理
     
381.     RegSpe = Replace(RegSpe,"%","%%")
     
382.     '对HexData转ASCII的引号字符进行转义
     
383.     If t = 1 Then
     
384.         RegSpe = Replace(RegSpe,"""","""")
     
385.     End If
     
386.     '添加双引号
     
387.     RegSpe = """" & RegSpe & """"
     
388. End Function
     
389. Function Hex2Dec(strHex)
     
390.     Hex2Dec = 268435456 * CLng("&H" & Left(strHex,1))
     
391.     Hex2Dec = Hex2Dec + CLng("&H" & Mid(strHex,2))
     
392. End Function
     
393. Function RegHexToAscii(iStr,RegTypeIndex,Separator)
     
394.     Dim i,n,sRet,HexL,HexH
     
395.     For i = 1 To Len(iStr) Step 4
     
396.         HexL = Mid(iStr, i, 2)
     
397.         HexH = Mid(iStr, i + 2, 2)
     
398.         If HexL & HexH = "0000" Then
     
399.             If RegTypeIndex = 7 Then '多字符串(REG_MULTI_SZ)类型
     
400.                 HexChar = Separator
     
401.             Else 'ElseIf RegTypeIndex = 2 Then '可扩充字符串(REG_EXPAND_SZ)类型
     
402.                 Exit For
     
403.             End If
     
404.         ElseIf HexL = "00" Then
     
405.             HexChar = Chr(CLng("&H" & HexL))
     
406.         Else
     
407.             HexChar = ChrW(CLng("&H" & HexH & HexL))
     
408.         End If
     
409.         sRet = sRet & HexChar
     
410.     Next
     
411.     If RegTypeIndex = 7 Then
     
412.         n = Len(Separator)
     
413.         Do Until Right(sRet,n) <> Separator
     
414.             sRet = Left(sRet,Len(sRet) - n)
     
415.         Loop
     
416.     End If
     
417.     RegHexToAscii = RegSpe(sRet,1)
     
418. End Function
     
419. 
     
420. 
     

复制代码

whsand

楼主你好，试了一下，出现错误，请检查代码。

[ 本帖最后由 whsand 于 2011-2-13 13:00 编辑 ]

secowu

你将需要转换的文件直接拉到这个文件名称上面。

slore

不知道是不是最新的。。。cn-dos也打不开了。。。貌似是数据的问题吧。应该得到HEX数据可能传进来的不对。

XP的话是有选择文件对话框的。。。
不带参数也是可以用的。

2011winsfly

报错同2楼，好东西我喜欢，不过希望是不出错哦

sck

谢谢，是可以转换的。

[ 本帖最后由 sck 于 2011-2-15 20:32 编辑 ]