getWiFiPass

構文
getWiFiPass( SSID )
引数
SSID
パスワードを知りたいWi-FiのSSID
戻値
引数に指定したSSIDのパスワード
型:UString

プログラム

//////////////////////////////////////////////////
// 【引数】
// 
// 【戻値】
// 
//////////////////////////////////////////////////
FUNCTION getWiFiPass(SSID)
	str = DOSCMD("netsh wlan show profiles name=" + SSID + " key=clear")
	match = reExecute(str, "主要なコンテンツ.*?\r\n")
	RESULT = TRIM(COPY(match.Item(0).Value, POS(":", match.Item(0).Value)+1))
FEND

//////////////////////////////////////////////////
// 【引数】
//   str : 正規表現による検索の対象となる文字列 
//   Pattern : 正規表現で使用するパターンを設定 
//   IgnoreCase : 大文字・小文字を区別しない場合はTrue、区別する場合はFalse 
//   Global : 文字列全体を検索する場合はTrue、しない場合はFalse 
// 【戻値】
//   正規表現で検索した結果をMatchesコレクションとして返します。 
//////////////////////////////////////////////////
FUNCTION reExecute(str, Pattern, IgnoreCase = TRUE, Global = TRUE)
	DIM re = CREATEOLEOBJ("VBScript.RegExp")
	re.Pattern = Pattern
	re.IgnoreCase = IgnoreCase
	re.Global = Global
	RESULT = re.Execute(str)
FEND

プログラム実行例

  1. 接続したことのあるWiFiのSSIDを取得しパスワードを出力します。

    			DIM arr
    
    			arr = getWiFiProfiles()
    
    			FOR n = 0 TO UBound(arr)
    				PRINT arr[n] + "<#TAB>" + getWiFiPass(arr[n])
    			NEXT
    結果