vbs设置IE浏览器ACtiveX为启用状态 

  1 Const HKEY_CURRENT_USER = &H80000001
  2 
  3  
  4 
  5 strComputer = "."
  6 
  7  
  8 
  9 Set objReg = GetObject("winmgmts:" &"{impersonationLevel=impersonate}\\"&strComputer &"\root\default:StdRegProv")
 10 
 11  
 12 
 13 strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\" & "Zones\3"
 14 
 15 strEntryName = "2201"
 16 
 17 dwvalue = 0
 18 
 19 strEntryName = "1001"
 20 
 21 dwvalue = 0
 22 
 23 strEntryName = "1004"
 24 
 25 dwvalue = 0
 26 
 27 strEntryName = "1200"
 28 
 29 dwvalue = 0
 30 
 31 strEntryName = "1201"
 32 
 33 dwvalue = 0
 34 
 35 strEntryName = "1207"
 36 
 37 dwvalue = 0
 38 
 39 strEntryName = "1209"
 40 
 41 dwvalue = 0
 42 
 43 strEntryName = "120A"
 44 
 45 dwvalue = 0
 46 
 47 strEntryName = "120B"
 48 
 49 dwvalue = 0
 50 
 51 strEntryName = "1809"
 52 
 53 dwvalue = 0
 54 
 55 strEntryName = "2000"
 56 
 57 dwvalue = 0
 58 
 59 strEntryName = "1405"
 60 
 61 dwvalue = 0
 62 
 63 objReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, strEntryName,dwValue
 64 
 65  
 66 
 67 strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\" & "Zones\2"
 68 
 69 strEntryName = "2201"
 70 
 71 dwvalue = 0
 72 
 73 strEntryName = "1001"
 74 
 75 dwvalue = 0
 76 
 77 strEntryName = "1004"
 78 
 79 dwvalue = 0
 80 
 81 strEntryName = "1200"
 82 
 83 dwvalue = 0
 84 
 85 strEntryName = "1201"
 86 
 87 dwvalue = 0
 88 
 89 strEntryName = "1207"
 90 
 91 dwvalue = 0
 92 
 93 strEntryName = "1209"
 94 
 95 dwvalue = 0
 96 
 97 strEntryName = "120A"
 98 
 99 dwvalue = 0
100 
101 strEntryName = "120B"
102 
103 dwvalue = 0
104 
105 strEntryName = "1809"
106 
107 dwvalue = 0
108 
109 strEntryName = "2000"
110 
111 dwvalue = 0
112 
113 strEntryName = "1405"
114 
115 dwvalue = 0
116 
117 objReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, strEntryName,dwValue
118 
119  
120 
121 strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\" & "Zones\1"
122 
123 strEntryName = "2201"
124 
125 dwvalue = 0
126 
127 strEntryName = "1001"
128 
129 dwvalue = 0
130 
131 strEntryName = "1004"
132 
133 dwvalue = 0
134 
135 strEntryName = "1200"
136 
137 dwvalue = 0
138 
139 strEntryName = "1201"
140 
141 dwvalue = 0
142 
143 strEntryName = "1207"
144 
145 dwvalue = 0
146 
147 strEntryName = "1209"
148 
149 dwvalue = 0
150 
151 strEntryName = "120A"
152 
153 dwvalue = 0
154 
155 strEntryName = "120B"
156 
157 dwvalue = 0
158 
159 strEntryName = "1809"
160 
161 dwvalue = 0
162 
163 strEntryName = "2000"
164 
165 dwvalue = 0
166 
167 strEntryName = "1405"
168 
169 dwvalue = 0
170 
171 objReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, strEntryName,dwValue
172 
173  
174 
175 strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\" & "Zones\4"
176 
177 strEntryName = "2201"
178 
179 dwvalue = 0
180 
181 strEntryName = "1001"
182 
183 dwvalue = 0
184 
185 strEntryName = "1004"
186 
187 dwvalue = 0
188 
189 strEntryName = "1200"
190 
191 dwvalue = 0
192 
193 strEntryName = "1201"
194 
195 dwvalue = 0
196 
197 strEntryName = "1207"
198 
199 dwvalue = 0
200 
201 strEntryName = "1209"
202 
203 dwvalue = 0
204 
205 strEntryName = "120A"
206 
207 dwvalue = 0
208 
209 strEntryName = "120B"
210 
211 dwvalue = 0
212 
213 strEntryName = "1809"
214 
215 dwvalue = 0
216 
217 strEntryName = "2000"
218 
219 dwvalue = 0
220 
221 strEntryName = "1405"
222 
223 dwvalue = 0
224 
225 objReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, strEntryName,dwValue
226 
227

 

posted @ 2022-11-01 10:58  yeahzxw  阅读(47)  评论(0)    收藏  举报