UWSC辞典

構文

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

   結果