none
Autenticar no AD para permitir o uso. RRS feed

  • Pergunta

  • 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

  • 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

  • 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
  • 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
  • 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