Usuário com melhor resposta
Autenticar no AD para permitir o uso.

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>
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:
Your potential. Our passion - Microsoft
- Marcado como Resposta Marcelo TI sexta-feira, 14 de agosto de 2015 09:11
Todas as 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:
Your potential. Our passion - Microsoft
- Marcado como Resposta Marcelo TI sexta-feira, 14 de agosto de 2015 09:11
-