Forum d'Entraide Informatique (FEI)

Local $SSIDS, $ListSSID, $Info_SSIDS

_SSID_List()
If $ListSSID <> "" Then
	For $b = 1 To StringSplit($ListSSID, @LF)[0]
		$item = StringSplit($ListSSID, @LF)[$b]
		If $item <> "" Then
			$SSID = $item
			$Info_SSIDS &= _InfoSSID($SSID) & @CRLF
		EndIf
	Next
	MsgBox(0, "", $Info_SSIDS)
EndIf


Func _SSID_List()

	$cmdline_1 = 'netsh wlan show profile key=clear | findstr .Profil'
	$nPid = Run(@ComSpec & ' /c' & $cmdline_1, '', @SW_HIDE, 8)
	ProcessWait($nPid)
	While 1
		$SSIDS &= StdoutRead($nPid)
		If @error Or (Not ProcessExists($nPid)) Then ExitLoop
	WEnd

	For $a = 1 To StringSplit($SSIDS, @LF)[0]
		$item = StringSplit($SSIDS, @LF)[$a]
		If $item <> "" Then
			$ListSSID &= StringStripWS(StringSplit($item, ':')[2], 3) & @CRLF
		EndIf
	Next

EndFunc   ;==>_SSID_List


Func _InfoSSID($SSID)

	Local $InfoSSID, $CleSSID, $InfoSSIDS

	$cmdline_2 = 'netsh wlan show profile name="' & $SSID & '" key=clear'
	$nPid = Run(@ComSpec & ' /c' & $cmdline_2, '', @SW_HIDE, 8)
	ProcessWait($nPid)
	While 1
		$InfoSSID &= StdoutRead($nPid)
		If @error Or (Not ProcessExists($nPid)) Then ExitLoop
	WEnd

	For $c = 1 To StringSplit($InfoSSID, @LF)[0]
		$item = StringSplit($InfoSSID, @LF)[$c]
		If $item <> '' Then
			If StringInStr($item, 'contenu de la cl') Then
				$CleSSID = StringStripWS(StringSplit($item, ':')[2], 3)
			EndIf
		EndIf
	Next

	$InfoSSIDS = StringStripWS($SSID, 3) & "|" & $CleSSID
	Return SetExtended(1, $InfoSSIDS)

EndFunc   ;==>_InfoSSID

ConsoleWrite(_GetSid(@UserName)&@CR) ; Display specified users sid

Func _GetSid($sUsername = @UserName)
    Local $oWMIService
    Local $oColAccounts

    $oWMIService = ObjGet("winmgmts:\\.\root\cimv2")
    If Not IsObj($oWMIService) Then
        SetError(2)
        Return 0
    EndIf
    $oColAccounts = $oWMIService.ExecQuery("Select * From Win32_UserAccount")

    For $oAccount In $oColAccounts
        If $oAccount.Name = $sUsername Then
            SetError(0)
            Return $oAccount.Sid
        EndIf
    Next
    SetError(1)
    Return 0
EndFunc   ;==>_GetSidoÝ÷ ØLZ^jëh×6ConsoleWrite(_GetSid()&@CR) ; Display current users sid