自上次发布了一篇Siebel 客户端配置工具，有朋友反应有管理员权限问题，而且手动改配置文件修改信任站点确实有点麻烦，所以又改进了一下，这是自己做的一个小程序，虽小但功能很强大，本来因为项目环境原因，还带了对本地网络ISP的动态判别从而自动写客户端Host文件的功能，后考虑通用性，最终还是去掉这个功能，简单点的好，支持IE6,7,8,9 能解决各种IE Crash或异常问题。 原程序核心代码见上一篇
新增功能说明：
1. 添加自动以管理员身份执行
2. UI输入信任站点自动添加
核心代码
1
REM
QBFC Project Options Begin
2 REM HasVersionInfo: Yes
4 REM Productname: SiebelIEConfig
5 REM Filedescription: Siebel OneKey IE Config
6 REM Copyrights: YSISL
7 REM Trademarks: YSISL
8 REM Originalname: YSISL
9 REM Comments: YSISL
10 REM Productversion: 11.11.11.11
11 REM Fileversion: 11.11.11.11
12 REM Internalname: SiebelIEConfig
13 REM Appicon: ..\48bd1f76f85d49318de89f673409693d.ico
14 REM Embeddedfile: IEConfigSouce\admin.vbs
15 REM Embeddedfile: IEConfigSouce\SiebelIEConfig_FLEX.exe
16 REM Embeddedfile: IEConfigSouce\getdomain.vbs
17 REM QBFC Project Options End
18 @ECHO OFF
19
20
21 REM SET MYFILES="%~dp0\IEConfigSouce"
22
23 chdir /D %MYFILES%
24 set configor=SiebelIEConfig_FLEX.exe
25 set cmd=runas /user :Administrator %configor%
26
27 for /f "tokens=*" %%i in ('cscript /nologo getdomain.vbs') do (
28
29 set DOMAIN=%%i
30
31 )
32
33 echo 正在加载用户信息..
34
35 echo % PATH% | findstr /I "system32;" >nul
36 if % errorlevel%==1 (
37 SET PATH="%WINDIR%\SYSTEM32;%PATH%"
38 )
39
40 echo 正在进行系统检测..
41 echo.
42
43
44 for /f "skip=1 tokens=3" %%a in ('wmic os get caption') do (
45 set myos=%%a
46
47 )
48
49 if /i "%myos%"=="7" (
50 echo 您的操作系统为Windows 7
51 echo 为本次程序加载管理员权限配置
52 echo.
53 copy admin.vbs %WINDIR%\SYSTEM32\admin.vbs /Y >nul
54 echo 正在启动IE配置程序...
55 admin %configor% %DOMAIN%
56
57 ) else (
58 echo 正在启动IE配置程序...
59 start "ieconfig" %configor% %DOMAIN%
60 )
2 REM HasVersionInfo: Yes
4 REM Productname: SiebelIEConfig
5 REM Filedescription: Siebel OneKey IE Config
6 REM Copyrights: YSISL
7 REM Trademarks: YSISL
8 REM Originalname: YSISL
9 REM Comments: YSISL
10 REM Productversion: 11.11.11.11
11 REM Fileversion: 11.11.11.11
12 REM Internalname: SiebelIEConfig
13 REM Appicon: ..\48bd1f76f85d49318de89f673409693d.ico
14 REM Embeddedfile: IEConfigSouce\admin.vbs
15 REM Embeddedfile: IEConfigSouce\SiebelIEConfig_FLEX.exe
16 REM Embeddedfile: IEConfigSouce\getdomain.vbs
17 REM QBFC Project Options End
18 @ECHO OFF
19
20
21 REM SET MYFILES="%~dp0\IEConfigSouce"
22
23 chdir /D %MYFILES%
24 set configor=SiebelIEConfig_FLEX.exe
25 set cmd=runas /user :Administrator %configor%
26
27 for /f "tokens=*" %%i in ('cscript /nologo getdomain.vbs') do (
28
29 set DOMAIN=%%i
30
31 )
32
33 echo 正在加载用户信息..
34
35 echo % PATH% | findstr /I "system32;" >nul
36 if % errorlevel%==1 (
37 SET PATH="%WINDIR%\SYSTEM32;%PATH%"
38 )
39
40 echo 正在进行系统检测..
41 echo.
42
43
44 for /f "skip=1 tokens=3" %%a in ('wmic os get caption') do (
45 set myos=%%a
46
47 )
48
49 if /i "%myos%"=="7" (
50 echo 您的操作系统为Windows 7
51 echo 为本次程序加载管理员权限配置
52 echo.
53 copy admin.vbs %WINDIR%\SYSTEM32\admin.vbs /Y >nul
54 echo 正在启动IE配置程序...
55 admin %configor% %DOMAIN%
56
57 ) else (
58 echo 正在启动IE配置程序...
59 start "ieconfig" %configor% %DOMAIN%
60 )
此程序已打包编译，附下载地址
联通电信网络ISP的DNS服务器会因为各地的TTL值不一样导致缓存刷新问题，这样有时候访问CRM域名就会出错，所以就想了个办法，能自动推测当地的ISP，然后更新Host，将域名指向正确的IP
核心代码
REM
//////////// 外网 ISP API 检测 ///////////////
set wgetcmd='wget http://int.dpool.sina.com.cn/iplookup/iplookup.php -O- -q'
echo. >> %LOGFILE%
echo %REMSEP% 调用新浪IPAPI获取ISP信息 %REMSEP% >> %LOGFILE%
for /f "tokens=2,3,4,5,6,7" %%a in (%wgetcmd%) do (
set iparea=%%a -- %%b
set local=%%c%%d%%e
set isp=%%f
)
echo *** 本地IP所属段 %iparea% >> %LOGFILE%
echo *** 本地网络环境为 %local% %isp% >>%LOGFILE%
echo *** 本地IP所属段 %iparea%
echo *** 本地网络环境为 %local% %isp%
set wgetcmd='wget http://int.dpool.sina.com.cn/iplookup/iplookup.php -O- -q'
echo. >> %LOGFILE%
echo %REMSEP% 调用新浪IPAPI获取ISP信息 %REMSEP% >> %LOGFILE%
for /f "tokens=2,3,4,5,6,7" %%a in (%wgetcmd%) do (
set iparea=%%a -- %%b
set local=%%c%%d%%e
set isp=%%f
)
echo *** 本地IP所属段 %iparea% >> %LOGFILE%
echo *** 本地网络环境为 %local% %isp% >>%LOGFILE%
echo *** 本地IP所属段 %iparea%
echo *** 本地网络环境为 %local% %isp%
