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