One-click Siebel client Configuration tool (customer Edition)

A Siebel client Configuration tool has been released since the last time. Some friends have responded that they have administrator permissions, and it is a bit difficult to manually modify the configuration file to modify the trusted site, so I have made some improvements, this is a small one.ProgramIt is small but powerful. Because of the project environment, it also provides dynamic identification of the local network ISP to automatically write the client host file. In this case, versatility is considered, in the end, we still remove this function, which is simple and supports IE6, 7, 8, and 9 to solve various ie crash or exceptions. Original program CoreCodeSee previous

 

New features:

1. Add Automatic execution as Administrator

2. automatically add Trusted Sites in Ui Input

 

Core code

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 Loading user information ..
34
35 Echo % Path % | Findstr/I "system32;"> NUL
36 If % Errorlevel % = 1 (
37 Set Path = "% Windir % \ system32; % PATH %"
38 )
39
40 Echo Checking System ..
41 Echo .
42
43
44 For /F "Skip = 1 tokens = 3" % A in ('wmic OS get caption ') Do (
45 Set Myos = %
46
47 )
48
49 If /I "% myos %" = "7 "(
50 Echo Your Operating System is Windows 7
51 Echo Load the Administrator permission configuration for this program
52 Echo .
53 Copy Admin. vbs % WINDIR % \ system32 \ ADMIN. vbs/Y> NUL
54 Echo Starting IE configuration program...
55 Admin % configor % domain %
56
57 ) Else (
58 Echo Starting IE configuration program...
59 Start "Ieconfig" % configor % domain %
60 )

 

 

This program has been packaged and compiled,

 

The DNS server of China Unicom's ISP may cause cache refresh problems due to different TTL values in different regions. In this way, sometimes an error occurs when accessing the CRM domain name, so we have a solution, automatically speculate on the local ISP, update the host, and point the domain name to the correct IP Address

Core code

 

Rem ///// // Internet isp api detection ///////////////
Set Wgetcmd = 'wget http://int.dpool.sina.com.cn/iplookup/iplookup.php-o-Q'
Echo .> % Logfile %
Echo % Remsep % call Sina ipapi to obtain ISP information % 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 * ** Local IP segment % iparea %> % logfile %
Echo * ** The local network environment is % local % ISP %> % logfile %

Echo* ** Local IP segment % iparea %
Echo* ** The local network environment is % local % ISP %