|
bapala
初级用户
积分 28
发帖 11
注册 2006-7-11
状态 离线
|
『楼 主』:
[win2k]如何用脚本(最好用vbs或wmi)实现802.1x客户端设置
最近我们公司在做802.1x验证,想用脚本实现客户端设置,但在用脚本启动服务:
Wireless Configuration,并更改启动类型后,无法实现下一步:
打开本地连接的属性对话框,将验证由智能卡改成PEAP如附件一所示:
然后点击属性,如附件二所示,将验证服务器证书前面的选择取消,然后选择启用快速连接.
请高手不吝赐教,谢谢
附件
1:  net_auth001.JPG (2006-10-21 12:08, 26.4 K, 下载附件所需积分 1 点
,下载次数： 3)
附件
2: net_auth002.JPG (2006-10-21 12:08, 34.9 K, 下载附件所需积分 1 点
,下载次数： 3)
|
|
 2006-10-21 12:08 |
|
|
electronixtar
铂金会员
积分 7493
发帖 2672
注册 2005-9-2
状态 离线
|
『第
2 楼』:
没弄过。可能在注册表里。或者是一个配置文件。试试 netsh
|
C:\>BLOG http://initiative.yo2.cn/
C:\>hh.exe ntcmds.chm::/ntcmds.htm
C:\>cmd /cstart /MIN "" iexplore "about:<bgsound src='res://%ProgramFiles%\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll/10/5432'>" |
|
|
2006-10-21 21:41 |
|
|
bapala
初级用户
积分 28
发帖 11
注册 2006-7-11
状态 离线
|
『第
3 楼』:
netsh ras 没有用,到technet查过,说到vista才有netsh wlan配置命令,xp&2003没有此命令,2k提都没提,晕,怎么办呢?
| Quote: | Originally posted by electronixtar at 2006-10-21 21:41:
没弄过。可能在注册表里。或者是一个配置文件。试试 netsh |
|
[ Last edited by bapala on 2006-10-21 at 23:49 ]
|
|
|
2006-10-21 23:24 |
|
|
electronixtar
铂金会员
积分 7493
发帖 2672
注册 2005-9-2
状态 离线
|
『第
4 楼』:
那就在注册表里了。用 RegMon/RegSnap 仔细分析。
|
C:\>BLOG http://initiative.yo2.cn/
C:\>hh.exe ntcmds.chm::/ntcmds.htm
C:\>cmd /cstart /MIN "" iexplore "about:<bgsound src='res://%ProgramFiles%\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll/10/5432'>" |
|
|
2006-10-22 04:06 |
|
|
bapala
初级用户
积分 28
发帖 11
注册 2006-7-11
状态 离线
|
『第
5 楼』:
早就試過了,寫入一個鍵傎,network,但到technet上說,不能夠手工編輯,暈,大概是每台電腦不一樣吧
| Quote: | Originally posted by electronixtar at 2006-10-22 04:06:
那就在注册表里了。用 RegMon/RegSnap 仔细分析。 |
|
|
|
|
2006-10-23 02:56 |
|
|
3742668
荣誉版主
积分 2013
发帖 718
注册 2006-2-18
状态 离线
|
 『第
6 楼』:
| Quote: | Originally posted by bapala at 2006-10-23 03:08:
早就試過了,寫入一個鍵傎,network,但到technet上說,不能夠手工編輯,暈,大概是每台電腦不一樣吧
|
|
你可以观察修改前后注册表值变化的规律来编写脚本,理论上应该是行得通的。
如果脚本的工作环境相对较好的话,可以尝试用vbs的sendkeys:
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(49)
Set objFolderItem = objFolder.Self
objShell.Open objFolderItem.Path
With CreateObject("Wscript.Shell")
Do
WScript.Sleep 100
Loop Until .AppActivate("网络连接")
WScript.Sleep 500
.SendKeys "{DOWN}{UP}"
WScript.Sleep 500
.SendKeys "+{F10}r"
Do
WScript.Sleep 100
Loop Until .AppActivate("本地连接 属性")
WScript.Sleep 500
.SendKeys "+{TAB}+{TAB}{RIGHT}{TAB 2}{DOWN 3}{UP}%R"
Do
WScript.Sleep 100
Loop Until .AppActivate("受保护的 EAP 属性")
WScript.Sleep 500
.SendKeys "%E%V"
End With
'后面只需要发送一个回车,一个tab,一个回车和ALT+F4就行了。
'回车需发送 {ENTER} 或 ~
|
|
|
2006-10-23 04:59 |
|
|
lxmxn
版主
积分 11386
发帖 4938
注册 2006-7-23
状态 离线
|
|
|
2006-10-23 05:34 |
|
|
alashan
新手上路
积分 9
发帖 4
注册 2006-10-24
状态 离线
|
『第
8 楼』:
确实不错，可是好像注册表上的变化不是特别大
|
|
|
2006-10-24 23:18 |
|
|
kaidi
新手上路
积分 16
发帖 8
注册 2006-11-4
状态 离线
|
|
|
2007-1-27 11:07 |
|
