中国DOS联盟

Recently our company is doing 802.1x authentication and wants to use a script to implement client settings. But after using the script to start the service: Wireless Configuration and change the startup type, it cannot proceed to the next step: Open the properties dialog of the local connection, change the authentication from smart card to PEAP as shown in Attachment 1: Then click properties, as shown in Attachment 2, cancel the selection in front of the verify server certificate, then select to enable fast connection.

Please experts give advice, thank you

Not done. Maybe in the registry. Or a configuration file. Try netsh

netsh ras is not working. I checked on technet and found that the netsh wlan configuration command is only available in Vista. There is no such command in XP & 2003, and 2K doesn't even mention it. Oh, what should I do?

Originally posted by electronixtar at 2006-10-21 21:41:
Haven't done it. Maybe in the registry. Or a configuration file. Try netsh

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

Then it's in the registry. Analyze carefully with RegMon/RegSnap.

I've tried it long ago. Write a key-value, network, but on technet it says can't be edited manually. Oh, probably each computer is different.

Originally posted by electronixtar at 2006-10-22 04:06:
Then it's in the registry. Use RegMon/RegSnap to analyze carefully.

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

Originally posted by bapala at 2006-10-23 03:08:
I've already tried it. I wrote a key value, network, but on technet it says that manual editing is not possible. Oh, maybe each computer is different.

You can observe the pattern of changes in registry values before and after modification to write a script, which should theoretically work.
If the working environment of the script is relatively good, you can try using vbs's 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("Network Connections")
    WScript.Sleep 500
    .SendKeys "{DOWN}{UP}"
    WScript.Sleep 500
    .SendKeys "+{F10}r"
    Do 
        WScript.Sleep 100
    Loop Until .AppActivate("Local Area Connection Properties")
    WScript.Sleep 500
    .SendKeys "+{TAB}+{TAB}{RIGHT}{TAB 2}{DOWN 3}{UP}%R"
    Do 
        WScript.Sleep 100
    Loop Until .AppActivate("Protected EAP Properties")
    WScript.Sleep 500
    .SendKeys "%E%V"
End With
'Only need to send a carriage return, a tab, a carriage return, and ALT+F4 later.
'Carriage return needs to send {ENTER} or ~

　　Collected, learning...

It's really good, but it seems that the changes in the registry aren't particularly significant