none
Autenticar no AD para permitir o uso. RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Ba galera, boa tarde.

    Alguém consegue me da uma ideia de como fazer a sub OnClickButtonConnect neste HTA tche, que abra uma conexão com o AD, valide se o usuário e senha apresentado pelo usuário é valido, e caso não retorne um msgbox falando que a senha ou o usuário estão errados tche.

    Obrigado galera.

    <html>
<head>
<title>Application</title>
<HTA:APPLICATION
  APPLICATIONNAME="Application"
  ID="Application"
  VERSION="1.0"/>
</head>

<script language="VBScript">

Sub OnClickButtonConnect()

End Sub
</script>

<body bgcolor="white">
		Login:<input type="text" name="login" id="login"><BR>
		Password:<input type="password" name="password" id="password"><BR>
		<input type="button" name="Connect" id="Connect" value="Connect" onclick="OnClickButtonConnect">
	</body>
</html>

    quinta-feira, 30 de julho de 2015 20:38
    |

Respostas

  • Question
    Entrar para Votar
    1
    Entrar para Votar

    Marcelo, Boa tarde.

    Não sei se compreendi o que vc deseja fazer, mais se for uma validação no AD como se fosse o processo de logon, segue o script abaixo basta vc colocar o mesmo em uma Sub em seu HTA que seja chamado pelo processo que vc deseja.

        'http://msdn.microsoft.com/en-us/library/windows/desktop/aa706065%28v=vs.85%29.aspx
    Set objNetwork = CreateObject("WScript.Network")
    strDomain = objNetwork.UserDomain
    Const ADS_SECURE_AUTHENTICATION = 1
    strUsername=InputBox("Enter Username:")
    strPassword=InputBox("Enter Password:")
    Set objDS = GetObject("LDAP:")
    On Error Resume Next
    Set objDomain = objDS.OpenDSObject("LDAP://" & strDomain, strUsername, strPassword, ADS_SECURE_AUTHENTICATION)
    If Err.Number Then
        WScript.Echo _
            "For user:" & vbCrLf & _
            "   " & strDomain & "\" & strUsername & vbCrLf & _ 
            "Error Number:" & vbCrLf & _
            "   " & Err.Number & vbCrLf & _
            "Error Description:" & vbCrLf & _
            "   " & Err.Description
    Else
        WScript.Echo _
            "Valid password entered for user" & vbCrLf & _
            "   " & strDomain & "\" & strUsername
    End If
    On Error Goto 0

    Referencia:

    http://stackoverflow.com/questions/3856479/testing-username-password-against-active-directory-domain-in-vbscript

    Your potential. Our passion - Microsoft

    • Marcado como Resposta Marcelo TI sexta-feira, 14 de agosto de 2015 09:11
    quarta-feira, 12 de agosto de 2015 17:44
    |

Todas as Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Ba galera, ninguém tem algum exemplo tche de vbs que passei para o AD usuário e senha e volte a condição validando se a senha do usuário e senha é valido.

    Obrigado tche.

    terça-feira, 4 de agosto de 2015 03:02
    |
  • Question
    Entrar para Votar
    1
    Entrar para Votar

    Marcelo, Boa tarde.

    Não sei se compreendi o que vc deseja fazer, mais se for uma validação no AD como se fosse o processo de logon, segue o script abaixo basta vc colocar o mesmo em uma Sub em seu HTA que seja chamado pelo processo que vc deseja.

        'http://msdn.microsoft.com/en-us/library/windows/desktop/aa706065%28v=vs.85%29.aspx
    Set objNetwork = CreateObject("WScript.Network")
    strDomain = objNetwork.UserDomain
    Const ADS_SECURE_AUTHENTICATION = 1
    strUsername=InputBox("Enter Username:")
    strPassword=InputBox("Enter Password:")
    Set objDS = GetObject("LDAP:")
    On Error Resume Next
    Set objDomain = objDS.OpenDSObject("LDAP://" & strDomain, strUsername, strPassword, ADS_SECURE_AUTHENTICATION)
    If Err.Number Then
        WScript.Echo _
            "For user:" & vbCrLf & _
            "   " & strDomain & "\" & strUsername & vbCrLf & _ 
            "Error Number:" & vbCrLf & _
            "   " & Err.Number & vbCrLf & _
            "Error Description:" & vbCrLf & _
            "   " & Err.Description
    Else
        WScript.Echo _
            "Valid password entered for user" & vbCrLf & _
            "   " & strDomain & "\" & strUsername
    End If
    On Error Goto 0

    Referencia:

    http://stackoverflow.com/questions/3856479/testing-username-password-against-active-directory-domain-in-vbscript

    Your potential. Our passion - Microsoft

    • Marcado como Resposta Marcelo TI sexta-feira, 14 de agosto de 2015 09:11
    quarta-feira, 12 de agosto de 2015 17:44
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Ba Leandro bom dia.

    Era algo assim mesmo que eu queria já adaptei ele no meu hta, valeu pela força tche ficou tri legal.

    sexta-feira, 14 de agosto de 2015 09:12
    |