Dim OperationRegistry
Set OperationRegistry=WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Dim p
p=""
If fso.FileExists("C:\Program Files (x86)\Internet Explorer\iexplore.exe") Then
   p=" (x86)"
end If
Set fso = Nothing

OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\qsswgl.com\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\qsswgl.com\www\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\qsswgl.com\www\*","2","REG_DWORD"
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\EscDomains\qsswgl.com\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\EscDomains\qsswgl.com\www\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\EscDomains\qsswgl.com\www\*","2","REG_DWORD"

OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\qsswgl.net\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\qsswgl.net\www\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\qsswgl.net\www\*","2","REG_DWORD"
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\EscDomains\qsswgl.net\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\EscDomains\qsswgl.net\www\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\EscDomains\qsswgl.net\www\*","2","REG_DWORD"

OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\qsswgl.cn\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\qsswgl.cn\www\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\qsswgl.cn\www\*","2","REG_DWORD"
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\EscDomains\qsswgl.cn\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\EscDomains\qsswgl.cn\www\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\EscDomains\qsswgl.cn\www\*","2","REG_DWORD"





OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\qsswgl.com\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\qsswgl.com\1\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\qsswgl.com\1\*","2","REG_DWORD"
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\EscDomains\qsswgl.com\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\EscDomains\qsswgl.com\1\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\EscDomains\qsswgl.com\1\*","2","REG_DWORD"

OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\qsswgl.net\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\qsswgl.net\1\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\qsswgl.net\1\*","2","REG_DWORD"
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\EscDomains\qsswgl.net\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\EscDomains\qsswgl.net\1\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\EscDomains\qsswgl.net\1\*","2","REG_DWORD"

OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\qsswgl.cn\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\qsswgl.cn\1\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\qsswgl.cn\1\*","2","REG_DWORD"
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\EscDomains\qsswgl.cn\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\EscDomains\qsswgl.cn\1\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\EscDomains\qsswgl.cn\1\*","2","REG_DWORD"






OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\qsswgl.com\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\qsswgl.com\a\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\qsswgl.com\a\*","2","REG_DWORD"
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\EscDomains\qsswgl.com\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\EscDomains\qsswgl.com\a\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\EscDomains\qsswgl.com\a\*","2","REG_DWORD"

OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\qsswgl.net\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\qsswgl.net\a\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\qsswgl.net\a\*","2","REG_DWORD"
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\EscDomains\qsswgl.net\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\EscDomains\qsswgl.net\a\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\EscDomains\qsswgl.net\a\*","2","REG_DWORD"

OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\qsswgl.cn\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\qsswgl.cn\a\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\qsswgl.cn\a\*","2","REG_DWORD"
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\EscDomains\qsswgl.cn\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\EscDomains\qsswgl.cn\a\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\EscDomains\qsswgl.cn\a\*","2","REG_DWORD"







OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\qsgl.net\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\qsgl.net\www\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\qsgl.net\www\*","2","REG_DWORD"
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\EscDomains\qsgl.net\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\EscDomains\qsgl.net\www\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\EscDomains\qsgl.net\www\*","2","REG_DWORD"

OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\qsgl.net\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\qsgl.net\tycs\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\qsgl.net\tycs\*","2","REG_DWORD"
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\EscDomains\qsgl.net\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\EscDomains\qsgl.net\tycs\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\EscDomains\qsgl.net\tycs\*","2","REG_DWORD"


OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\qsgl.net\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\qsgl.net\sl\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\qsgl.net\sl\*","2","REG_DWORD"
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\EscDomains\qsgl.net\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\EscDomains\qsgl.net\sl\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\EscDomains\qsgl.net\sl\*","2","REG_DWORD"







OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\qsswgl.com\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\qsswgl.com\*\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\qsswgl.com\*\*","2","REG_DWORD"
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\EscDomains\qsswgl.com\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\EscDomains\qsswgl.com\*\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\EscDomains\qsswgl.com\*\*","2","REG_DWORD"

OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\qsswgl.cn\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\qsswgl.cn\*\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\qsswgl.cn\*\*","2","REG_DWORD"
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\EscDomains\qsswgl.cn\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\EscDomains\qsswgl.cn\*\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\EscDomains\qsswgl.cn\*\*","2","REG_DWORD"

OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\qsswgl.net\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\qsswgl.net\*\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\qsswgl.net\*\*","2","REG_DWORD"
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\EscDomains\qsswgl.net\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\EscDomains\qsswgl.net\*\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\EscDomains\qsswgl.net\*\*","2","REG_DWORD"

OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\qsgl.net\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\qsgl.net\*\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\qsgl.net\*\*","2","REG_DWORD"
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\EscDomains\qsgl.net\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\EscDomains\qsgl.net\*\",""
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\EscDomains\qsgl.net\*\*","2","REG_DWORD"






OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\CurrentLevel","0","REG_DWORD"
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1001","0","REG_DWORD"
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1004","0","REG_DWORD"
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1201","0","REG_DWORD"
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\2201","0","REG_DWORD"
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Internet Explorer\New Windows\PopupMgr","no"    
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Internet Explorer\TabbedBrowsing\OpenInForeground","1","REG_DWORD"

strDesktop = OperationRegistry.SpecialFolders("Desktop")
set oShellLink = OperationRegistry.CreateShortcut(strDesktop & "\\轻松商务管理平台CN.lnk") 
oShellLink.TargetPath = "http://www.qsswgl.cn"
oShellLink.Arguments="http://www.qsswgl.cn"
oShellLink.IconLocation = "SHELL32.dll,41"
oShellLink.Save 
strDesktop = OperationRegistry.SpecialFolders("Desktop")
set oShellLink = OperationRegistry.CreateShortcut(strDesktop & "\\轻松商务管理平台NET.lnk") 
oShellLink.TargetPath = "http://www.qsswgl.net"
oShellLink.Arguments="http://www.qsswgl.net"
oShellLink.IconLocation = "SHELL32.dll,41"
oShellLink.Save 
strDesktop = OperationRegistry.SpecialFolders("Desktop")
set oShellLink = OperationRegistry.CreateShortcut(strDesktop & "\\轻松商务管理平台COM.lnk") 
oShellLink.TargetPath = "C:\Program Files"+p+"\Internet Explorer\iexplore.exe"
oShellLink.Arguments="http://www.qsswgl.com"
oShellLink.IconLocation = "SHELL32.dll,41"
oShellLink.Save 
mgb=MsgBox("设置成功，请点击桌面上的轻松商务管理图标登陆软件",65,"轻松商务管理平台")
if mgb=1 then
'	OperationRegistry.Run("iexplore.exe http://www.qsswgl.com") 
end if