on error resume next HKEY_CURRENT_USER = &H80000001 site_domain="mybamboos.hk" strComputer = "." if instr(site_domain,"wem.com.hk") Then site_domain_1 = "wem.com.hk"&"\"&replace(site_domain,".wem.com.hk","") checkcase = 1 elseif instr(site_domain,"wems.com.hk") Then site_domain_1 = "wems.com.hk"&"\"&replace(site_domain,".wems.com.hk","") checkcase = 0 elseif instr(site_domain,"wemsy.com.hk") Then site_domain_1 = "wemsy.com.hk"&"\"&replace(site_domain,".wemsy.com.hk","") checkcase = 0 elseif instr(site_domain,"wemsys.com.hk") Then site_domain_1 = "wemsys.com.hk"&"\"&replace(site_domain,".wemsys.com.hk","") checkcase = 0 elseif instr(site_domain,"wemsyst.com.hk") Then site_domain_1 = "wemsyst.com.hk"&"\"&replace(site_domain,".wemsyst.com.hk","") checkcase = 0 elseif instr(site_domain,"wemsyste.com.hk") Then site_domain_1 = "wemsyste.com.hk"&"\"&replace(site_domain,".wemsyste.com.hk","") checkcase = 0 elseif instr(site_domain,"wemsystem.com.hk") Then site_domain_1 = "wemsystem.com.hk"&"\"&replace(site_domain,".wemsystem.com.hk","") checkcase = 0 elseif instr(site_domain,"wembeauty.com.hk") Then site_domain_1 = "wembeauty.com.hk"&"\"&replace(site_domain,".wembeauty.com.hk","") checkcase = 0 elseif instr(site_domain,"wemclass.com.hk") Then site_domain_1 = "wemclass.com.hk"&"\"&replace(site_domain,".wemclass.com.hk","") checkcase = 0 elseif instr(site_domain,"wemtest.com.hk") Then site_domain_1 = "wemtest.com.hk"&"\"&replace(site_domain,".wemtest.com.hk","") checkcase = 0 elseif instr(site_domain,"b2bbeauty.com.hk") Then site_domain_1 = "b2bbeauty.com.hk"&"\"&replace(site_domain,".b2bbeauty.com.hk","") checkcase = 0 elseif instr(site_domain,"b2btest.com.hk") Then site_domain_1 = "b2btest.com.hk"&"\"&replace(site_domain,".b2btest.com.hk","") checkcase = 0 end if site_domain_1a = "*.wemreport.com.hk" site_domain_1b = "hkb2b.com.hk" site_domain_1d = "hkb2b.com" site_domain_1e = "hkb2b.hk" site_domain_1f = "value.com.hk" site_domain_1g = "beautymall.com.hk" site_domain_1h = "hkbeauty.com.hk" site_domain_1j = "www.hkb2b.com.hk" 'https site_domain_1c = "hkb2b.com.hk" site_domain_1k = "wem.com.hk" site_domain_1l = "wem.com.hk" site_domain_1m = "wems.com.hk" site_domain_1n = "wemsy.com.hk" site_domain_1o = "wemsys.com.hk" site_domain_1p = "wemsyst.com.hk" site_domain_1q = "wemsyste.com.hk" site_domain_1r = "wemsystem.com.hk" site_domain_1s = "wembeauty.com.hk" site_domain_1t = "wemclass.com.hk" site_domain_1u = "wemtest.com.hk" site_domain_1v = "b2bbeauty.com.hk" site_domain_1w = "b2btest.com.hk" for kloop = 1 to 24 if kloop = 2 then site_domain = site_domain site_domain_1 = site_domain_1 end if if kloop = 3 and site_domain <> site_domain_1b then site_domain = site_domain_1b site_domain_1 = site_domain_1b end if if kloop = 4 and site_domain <> site_domain_1c then site_domain = site_domain_1c site_domain_1 = site_domain_1c end if if kloop = 5 and site_domain <> site_domain_1d then site_domain = site_domain_1d site_domain_1 = site_domain_1d end if if kloop = 6 and site_domain <> site_domain_1e then site_domain = site_domain_1e site_domain_1 = site_domain_1e end if if kloop = 7 and site_domain <> site_domain_1f then site_domain = site_domain_1f site_domain_1 = site_domain_1f end if if kloop = 8 and site_domain <> site_domain_1g then site_domain = site_domain_1g site_domain_1 = site_domain_1g end if if kloop = 9 and site_domain <> site_domain_1h then site_domain = site_domain_1h site_domain_1 = site_domain_1h end if if kloop = 10 and site_domain <> site_domain_1j then site_domain = site_domain_1j site_domain_1 = site_domain_1j end if if kloop = 11 and site_domain <> site_domain_1k then site_domain = site_domain_1k site_domain_1 = site_domain_1k end if if kloop = 12 and site_domain <> site_domain_1a then site_domain = site_domain_1a site_domain_1 = site_domain_1a end if if kloop = 13 and site_domain <> site_domain_1l then site_domain = site_domain_1l site_domain_1 = site_domain_1l end if if kloop = 14 and site_domain <> site_domain_1m then site_domain = site_domain_1m site_domain_1 = site_domain_1m end if if kloop = 15 and site_domain <> site_domain_1n then site_domain = site_domain_1n site_domain_1 = site_domain_1n end if if kloop = 16 and site_domain <> site_domain_1o then site_domain = site_domain_1o site_domain_1 = site_domain_1o end if if kloop = 17 and site_domain <> site_domain_1p then site_domain = site_domain_1p site_domain_1 = site_domain_1p end if if kloop = 18 and site_domain <> site_domain_1q then site_domain = site_domain_1q site_domain_1 = site_domain_1q end if if kloop = 19 and site_domain <> site_domain_1r then site_domain = site_domain_1r site_domain_1 = site_domain_1r end if if kloop = 20 and site_domain <> site_domain_1s then site_domain = site_domain_1s site_domain_1 = site_domain_1s end if if kloop = 21 and site_domain <> site_domain_1t then site_domain = site_domain_1t site_domain_1 = site_domain_1t end if if kloop = 22 and site_domain <> site_domain_1u then site_domain = site_domain_1u site_domain_1 = site_domain_1u end if if kloop = 23 and site_domain <> site_domain_1v then site_domain = site_domain_1v site_domain_1 = site_domain_1v end if if kloop = 24 and site_domain <> site_domain_1w then site_domain = site_domain_1w site_domain_1 = site_domain_1w end if if not isnumeric(replace(site_domain,".","")) then Set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\" &site_domain_1 objReg.CreateKey HKEY_CURRENT_USER, strKeyPath if (kloop=2 and checkcase=1) or kloop=4 or kloop=11 then strValueName = "https" else strValueName = "http" end if dwValue = 2 objReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, strValueName, dwValue end if Set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "Software\Microsoft\Internet Explorer\New Windows\Allow\" objReg.CreateKey HKEY_CURRENT_USER, strKeyPath strValueName = site_domain strValue = array() objReg.SetBinaryValue HKEY_CURRENT_USER,strKeyPath, strValueName,strValue Set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings" objReg.CreateKey HKEY_CURRENT_USER, strKeyPath strValueName = "SyncMode5" dwValue = 3 objReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, strValueName, dwValue Set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "Software\Microsoft\Internet Explorer\PhishingFilter" objReg.CreateKey HKEY_CURRENT_USER, strKeyPath strValueName = "Enabled" dwValue = 0 objReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, strValueName, dwValue Set WshShell = CreateObject("Wscript.Shell") WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Friendly http errors", "no", "REG_SZ" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TabbedBrowsing\Enabled", "0", "REG_DWORD" if isnumeric(replace(site_domain,".","")) then WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Ranges\Range10\:Range", site_domain, "REG_SZ" if strValueName = "http" then WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Ranges\Range10\http", "2", "REG_DWORD" else WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Ranges\Range10\https", "2", "REG_DWORD" end if end if 'PolicyRenderLegacyFilters 'WshShell.RegWrite "HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\270B", "0", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\270B", "0", "REG_DWORD" ' set to low secuity WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\Flags", "67", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\CurrentLevel", "65536", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1001", "0", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1004", "1", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1200", "0", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1201", "0", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1206", "0", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1207", "0", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1208", "0", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1209", "0", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\120A", "3", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\120B", "0", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1400", "0", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1402", "0", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1405", "0", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1406", "0", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1407", "0", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1408", "0", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1409", "3", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1601", "0", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1604", "0", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1605", "0", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1606", "0", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1607", "0", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1608", "0", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1609", "0", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\160A", "0", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1800", "0", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1802", "0", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1803", "0", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1804", "0", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1806", "1", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1809", "3", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\180B", "1", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1A00", "0", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1A02", "0", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1A03", "0", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1A04", "0", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1A05", "0", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1A06", "0", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1C00", "196608", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\2000", "0", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\2001", "0", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\2004", "0", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\2005", "0", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\2007", "65536", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\2100", "0", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\2101", "1", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\2102", "0", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\2103", "0", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\2104", "0", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\2105", "0", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\2106", "0", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\2107", "0", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\2200", "0", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\2201", "0", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\2300", "1", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\2301", "3", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\2400", "0", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\2401", "0", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\2402", "0", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\2500", "3", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\2600", "0", "REG_DWORD" WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\2700", "3", "REG_DWORD" 'delete history on exit WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Privacy\ClearBrowsingHistoryOnExit", "1", "REG_DWORD" 'privacy advanced WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\PrivacyAdvanced", "1", "REG_DWORD" next 'Send to server write log strComputer ="." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery _ ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True") For Each objItem in colItems macaddress = objItem.MACAddress Next Set WshNetwork = WScript.CreateObject("WScript.Network") ComputerName = WshNetwork.ComputerName 'macaddress = replace(macaddress,":","_") Set http = CreateObject("MSXML2.ServerXMLHTTP") http.open "GET", "http://mybamboos.hk:443/cgi-bin/common/write_log.asp?mac="&macaddress&"&host="&ComputerName , False http.send 'WshShell.run("http://mybamboos.hk:443/cgi-bin/common/smsx.exe")