Snippets ( Wireless ): Difference between revisions
Jump to navigation
Jump to search
m (+Snippets Category (+ normalize top)) |
|||
| Line 1: | Line 1: | ||
__TOC__ | |||
[[category:Snippets]] | |||
{{Snippet Credit Header}} | |||
===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _GetActiveSSID() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> ===== | ===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _GetActiveSSID() ~ Author - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> ===== | ||
Revision as of 15:12, 12 November 2012
Please always credit an author in your script if you use their code. It is only polite.
_GetActiveSSID() ~ Author - guinness
_GetActiveSSID() ~ Author - guinness
#include <Constants.au3>
ConsoleWrite( _GetActiveSSID() & @CRLF)
Func _GetActiveSSID()
Local $iPID = Run(@ComSpec & ' /u /c ' & 'netsh wlan show interfaces', @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD), $sOutput = ''
While 1
$sOutput &= StdoutRead($iPID)
If @error Then
ExitLoop
EndIf
$sOutput = StringStripWS($sOutput, 7)
WEnd
$sReturn = StringRegExp($sOutput, '(?s)(?i)SSID\s*:\s(.*?)' & @CR, 3)
If @error Then
Return SetError(1, 0, '')
EndIf
Return $sReturn[0]
EndFunc ;==>_GetActiveSSID