AutoHotKey实现将站点添加到IE的Intranet本地站点

最近在内部推行CRM系统，其中的CPQ组件要求必须将站点加入到"本地Intranet”才可以正常使用，但是由于使用用户比较多（超过几千人），并且每个用户的计算机水平都不一样，所以让用户手工去进行这种设置变比较麻烦，一个是浪费了大家的时间，二是过程不顺利会导致服务工作量比较大，所以我就用AutoHotKey写了一个可执行文件来进行设置，主要完成以下工作：

添加添加两个IP地址到Hosts文件，防止内部DNS服务器解析错误
添加IP和域名到Intranet，添加之前先删除，这样第二次运行的时候也不会报错。
具体的代码如下：

; This script was created using Pulover's Macro Creator

; www.macrocreator.com

#NoEnv

SetWorkingDir %A_ScriptDir%

CoordMode, Mouse, Window

SendMode Input

#SingleInstance Force

SetTitleMatchMode 2

#WinActivateForce

SetControlDelay 1

SetWinDelay 0

SetKeyDelay -1

SetMouseDelay -1

SetBatchLines -1

Macro2:

FileAppend, `r`n10.110.9.205 crmprd1.inspur.com, C:\WINDOWS\system32\drivers\etc\hosts

FileAppend, `r`n10.110.9.206 crmcpq1.inspur.com, C:\WINDOWS\system32\drivers\etc\hosts

RegDelete, HKEY_CURRENT_USER, Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Ranges\Range250

RegWrite, REG_SZ, HKEY_CURRENT_USER, Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Ranges\, Range250

RegWrite, REG_DWORD, HKEY_CURRENT_USER, Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Ranges\Range250, *, 1

RegWrite, REG_SZ, HKEY_CURRENT_USER, Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Ranges\Range250, :Range, 10.110.9.206

RegDelete, HKEY_CURRENT_USER, Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\inspur.com\crmcpq1

RegWrite, REG_SZ, HKEY_CURRENT_USER, Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\inspur.com, crmcpq1

RegWrite, REG_DWORD, HKEY_CURRENT_USER, Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\inspur.com\crmcpq1, *, 1

MsgBox, 0, Inspur CRM, All Settings has been done.

Return

　　PS：两点感触，

1. AutoHotKey还是有点小众，写作过程中遇到问题在google上搜索明显不如其他脚本语言，并且博客园的插入代码也不支持AutoHotKey。

2. 不与最普通的电脑用户接触，你就不会真正明白360浏览器的占用率有多高，最近内测中接触的销售，几乎每人个都安装了360浏览器，太牛了。

巴特西

AutoHotKey实现将站点添加到IE的Intranet本地站点

最新文章

热门文章