Nombre de RED WIFI a la que estoy conectado...

[melvinhn]

Bueno resulta que no se la manera como sacar el nombre de la red wifi actual a la que estoy conectado
se que el nombre de mi red wifi se llama WIFI SERVER, pero como saco ese nombre en un msbox

Código: Seleccionar todo

#NoTrayIcon
;#RequireAdmin

$NombreRedWifiActiva  = @WifiName
MsgBox(64, "Windows", $NombreRedWifiActiva)

porfa necesito de la ayuda de usted, de antemano gracias

[Dany]

Hola Melvin. Puedes hacer esto.

Código: Seleccionar todo

#include <Constants.au3>

Local $sNombreRedWifiActiva=_GetActiveSSID()
MsgBox(0,"",$sNombreRedWifiActiva)

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

Saludos

[melvinhn]

Muchisimas gracias mi amigo, eres un genio. es bueno que alla personas que compartan su conocimiento.