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

时间:2022-02-03 17:24:20

最近在内部推行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浏览器,太牛了。