getWiFiProfiles

構文
getWiFiProfiles( )
引数
戻値
システムで構成されているプロファイルを取得します。 型:Array

プログラム

//////////////////////////////////////////////////
// 【引数】
// 
// 【戻値】
// 
//////////////////////////////////////////////////
FUNCTION getWiFiProfiles()
	cmd = "netsh wlan show profiles"
	str = DOSCMD(cmd)
	matches = reExecute(str, ".*?:\s(.*?)\r\n")
	num = matches.Count - 1
	DIM res[num]
	FOR n = 0 TO num
		res[n] = matches.Item(n).SubMatches(0)
	NEXT
	RESULT = SLICE(res)
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]
    NEXT
    
    //////////////////////////////////////////////////
    // 【引数】
    //   配列 : 上限値を求める配列 
    // 【戻値】
    //   配列の上限値 
    //////////////////////////////////////////////////
    FUNCTION UBound(array[])
    	RESULT = RESIZE(array)
    FEND
    
    //////////////////////////////////////////////////
    // 【引数】
    // 
    // 【戻値】
    // 
    //////////////////////////////////////////////////
    FUNCTION getWiFiProfiles()
    	cmd = "netsh wlan show profiles"
    	str = DOSCMD(cmd)
    	matches = reExecute(str, ".*?:\s(.*?)\r\n")
    	num = matches.Count - 1
    	DIM res[num]
    	FOR n = 0 TO num
    		res[n] = matches.Item(n).SubMatches(0)
    	NEXT
    	RESULT = SLICE(res)
    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
    結果