如何用脚本(最好用vbs或wmi)实现802.1x客户端设置 - 中国DOS联盟论坛

最近我们公司在做802.1x验证,想用脚本实现客户端设置,但在用脚本启动服务:
Wireless Configuration,并更改启动类型后,无法实现下一步:
打开本地连接的属性对话框,将验证由智能卡改成PEAP如附件一所示:

然后点击属性,如附件二所示,将验证服务器证书前面的选择取消,然后选择启用快速连接.

请高手不吝赐教,谢谢

没弄过。可能在注册表里。或者是一个配置文件。试试 netsh

netsh ras 没有用,到technet查过,说到vista才有netsh wlan配置命令,xp&2003没有此命令,2k提都没提,晕,怎么办呢?

Originally posted by electronixtar at 2006-10-21 21:41:
没弄过。可能在注册表里。或者是一个配置文件。试试 netsh

[ Last edited by bapala on 2006-10-21 at 23:49 ]

那就在注册表里了。用 RegMon/RegSnap 仔细分析。

早就試過了,寫入一個鍵傎,network,但到technet上說,不能夠手工編輯,暈,大概是每台電腦不一樣吧

Originally posted by electronixtar at 2006-10-22 04:06:
那就在注册表里了。用 RegMon/RegSnap 仔细分析。

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} 或 ~

　　收藏了，学习之……

确实不错，可是好像注册表上的变化不是特别大

第1楼　bapala	发表于 2006-10-21 12:08
初级用户　发帖 11　积分 28
[win2k]如何用脚本(最好用vbs或wmi)实现802.1x客户端设置最近我们公司在做802.1x验证,想用脚本实现客户端设置,但在用脚本启动服务: Wireless Configuration,并更改启动类型后,无法实现下一步: 打开本地连接的属性对话框,将验证由智能卡改成PEAP如附件一所示: 然后点击属性,如附件二所示,将验证服务器证书前面的选择取消,然后选择启用快速连接. 请高手不吝赐教,谢谢附件 net_auth001.JPG (26.4 KiB) net_auth002.JPG (34.9 KiB)

第2楼　electronixtar	发表于 2006-10-21 21:41
铂金会员　发帖 2,672　积分 7,493
没弄过。可能在注册表里。或者是一个配置文件。试试 netsh

第3楼　bapala	发表于 2006-10-21 23:24
初级用户　发帖 11　积分 28
netsh ras 没有用,到technet查过,说到vista才有netsh wlan配置命令,xp&2003没有此命令,2k提都没提,晕,怎么办呢? Originally posted by electronixtar at 2006-10-21 21:41: 没弄过。可能在注册表里。或者是一个配置文件。试试 netsh [ Last edited by bapala on 2006-10-21 at 23:49 ]

第4楼　electronixtar	发表于 2006-10-22 04:06
铂金会员　发帖 2,672　积分 7,493
那就在注册表里了。用 RegMon/RegSnap 仔细分析。

第5楼　bapala	发表于 2006-10-23 02:56
初级用户　发帖 11　积分 28
早就試過了,寫入一個鍵傎,network,但到technet上說,不能夠手工編輯,暈,大概是每台電腦不一樣吧 Originally posted by electronixtar at 2006-10-22 04:06: 那就在注册表里了。用 RegMon/RegSnap 仔细分析。

第6楼　3742668	发表于 2006-10-23 04:59
荣誉版主　发帖 718　积分 2,013
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} 或 ~

第7楼　lxmxn	发表于 2006-10-23 05:34
版主　发帖 4,938　积分 11,386
收藏了，学习之……

第8楼　alashan	发表于 2006-10-24 23:18
新手上路　发帖 4　积分 9
确实不错，可是好像注册表上的变化不是特别大

第9楼　kaidi	发表于 2007-01-27 11:07
新手上路　发帖 8　积分 16
谢谢！！！