end0tknr's kipple - 新web写経開発

http://d.hatena.ne.jp/end0tknr/ から移転します

vbscriptによるwin7の無線アクセスポイント化 - が「インターネット接続の共有設定」はコマンドでは面倒?

thinkpadで利用しているcolinuxのインターネット接続は、TAP-WIN32からthinkpad無線lanアダプタを共有することで行なっていますが、これをvbscriptで実現したいと思い、vbscriptを書いてみた。

が、「インターネット接続の共有設定」はレジストリに登録されいて、vbscriptによる自動設定は面倒なので、「ネットワークと共有センター」から手動設定に留めた。
http://support.microsoft.com/kb/229965/ja

Option Explicit
Dim obj_sh, wsh

Set obj_sh = CreateObject("Shell.Application")

'管理ユーザとして実行する為、再起動
If WScript.Arguments.length = 0 Then
    obj_sh.ShellExecute "wscript.exe", WScript.ScriptFullName+" uac","","runas"
    WScript.Quit
End If

Set wsh = WScript.CreateObject("WScript.Shell")

' http://www.infraexpert.com/study/wireless48.html

'Microsoft Virtual WiFi Miniport Adapterの有効化
wsh.Run "cmd.exe /c netsh wlan set hostednetwork mode=allow"
'SSIDの設定
wsh.Run "cmd.exe /c netsh wlan set hostednetwork ssid=ないしょ"
'パスワードの設定
wsh.Run "cmd.exe /c netsh wlan set hostednetwork key=ないしょ keyusage=persistent"
'SoftAPの再起動
wsh.Run "cmd.exe /c netsh wlan stop  hostednetwork"
wsh.Run "cmd.exe /c netsh wlan start hostednetwork"


'「インターネット接続の共有設定」はレジストリに登録されいて
' vbscriptによる自動設定は面倒かもしれないので、
'「ネットワークと共有センター」から手動設定して下さい
' http://support.microsoft.com/kb/229965/ja