' 对客户端进行设置:
' > 开启ADODB.Stream对象
' > 添加信任站点
' > 设置信任站点安全级别
' Created By WuGe At 2005-04-15

Const cntMsgTitle = "中天客户端设置程序"
Const cntRegPath = "C:\ClientConfig.reg"
Const cntServerIP = "192.168.0.1"	' <--这里填写服务器IP

Dim objFSO
Dim objTStream
Dim objNetWork
Dim strComputer
Dim objAccount
Dim strSID
Dim objShell

On Error Resume Next
'MsgBox "如果杀毒软件提示拦截该代码, 请确认执行该代码或者关闭杀毒软件后再执行本代码! ", vbOKOnly+vbInformation, cntMsgTitle

' 生成注册表文件
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set objTStream = objFSO.CreateTextFile(cntRegPath, True, False)

objTStream.WriteLine "REGEDIT4"
objTStream.WriteLine ""

' 写注册表: 开启ADODB.Stream对象
objTStream.WriteLine "[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\ActiveX Compatibility\{00000566-0000-0010-8000-00AA006D2EA4}]"
objTStream.WriteLine Chr(34) & "Compatibility Flags" & Chr(34) & "=dword:00000000"
objTStream.WriteLine ""

Err.number = 0

' 获取本机登录用户SID
strComputer = "."
Set objNetWork = WScript.CreateObject("Wscript.Network")
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set objAccount = objWMIService.Get("Win32_UserAccount.Name='" & objNetWork.UserName & "',Domain='" & objNetWork.UserDomain & "'")
strSID = objAccount.SID

' 写注册表: 设置信任站点的安全级别
objTStream.WriteLine "[HKEY_USERS\" & strSID & "\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2]"
objTStream.WriteLine Chr(34) & "1001" & Chr(34) & "=dword:00000000"
objTStream.WriteLine Chr(34) & "1004" & Chr(34) & "=dword:00000000"
objTStream.WriteLine Chr(34) & "1200" & Chr(34) & "=dword:00000000"
objTStream.WriteLine Chr(34) & "1201" & Chr(34) & "=dword:00000000"
objTStream.WriteLine Chr(34) & "1400" & Chr(34) & "=dword:00000000"
objTStream.WriteLine Chr(34) & "1402" & Chr(34) & "=dword:00000000"
objTStream.WriteLine Chr(34) & "1405" & Chr(34) & "=dword:00000000"
objTStream.WriteLine Chr(34) & "1406" & Chr(34) & "=dword:00000000"
objTStream.WriteLine Chr(34) & "1407" & Chr(34) & "=dword:00000000"
objTStream.WriteLine Chr(34) & "1601" & Chr(34) & "=dword:00000000"
objTStream.WriteLine Chr(34) & "1604" & Chr(34) & "=dword:00000000"
objTStream.WriteLine Chr(34) & "1606" & Chr(34) & "=dword:00000000"
objTStream.WriteLine Chr(34) & "1607" & Chr(34) & "=dword:00000000"
objTStream.WriteLine Chr(34) & "1608" & Chr(34) & "=dword:00000000"
objTStream.WriteLine Chr(34) & "1609" & Chr(34) & "=dword:00000000"
objTStream.WriteLine Chr(34) & "1800" & Chr(34) & "=dword:00000000"
objTStream.WriteLine Chr(34) & "1802" & Chr(34) & "=dword:00000000"
objTStream.WriteLine Chr(34) & "1803" & Chr(34) & "=dword:00000000"
objTStream.WriteLine Chr(34) & "1804" & Chr(34) & "=dword:00000000"
objTStream.WriteLine Chr(34) & "1A00" & Chr(34) & "=dword:00000000"
objTStream.WriteLine Chr(34) & "1A02" & Chr(34) & "=dword:00000000"
objTStream.WriteLine Chr(34) & "1A03" & Chr(34) & "=dword:00000000"
objTStream.WriteLine Chr(34) & "1A04" & Chr(34) & "=dword:00000000"
objTStream.WriteLine Chr(34) & "1A05" & Chr(34) & "=dword:00000000"
objTStream.WriteLine Chr(34) & "1A06" & Chr(34) & "=dword:00000000"
objTStream.WriteLine Chr(34) & "1C00" & Chr(34) & "=hex:00,00,03,00"
objTStream.WriteLine Chr(34) & "1E05" & Chr(34) & "=dword:00030000"
objTStream.WriteLine Chr(34) & "2001" & Chr(34) & "=dword:00000000"
objTStream.WriteLine Chr(34) & "2004" & Chr(34) & "=dword:00000000"
objTStream.WriteLine ""

' 写注册表: 添加当前服务器到信任站点
objTStream.WriteLine "[HKEY_USERS\" & strSID & "\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\127.0.0.1]"
objTStream.WriteLine Chr(34) & "http" & Chr(34) & "=dword:00000002"
objTStream.WriteLine "[HKEY_USERS\" & strSID & "\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\localhost]"
objTStream.WriteLine Chr(34) & "http" & Chr(34) & "=dword:00000002"
If cntServerIP<>"" Then
	objTStream.WriteLine "[HKEY_USERS\" & strSID & "\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\" & cntServerIP & "]"
	objTStream.WriteLine Chr(34) & "http" & Chr(34) & "=dword:00000002"
End If
objTStream.Close

MsgBox "设置完毕, 下面将运行注册表设置文件! ", vbOKOnly+vbInformation, cntMsgTitle
Set objShell = WScript.CreateObject("Wscript.Shell")
objShell.Run cntRegPath

Set objAccount = Nothing
Set objFSO = Nothing
Set objNetWork = Nothing
Set objShell = Nothing
Set objTStream = Nothing