terça-feira, novembro 21, 2017
Breaking News
Home » Programação/ Scripts » Script VBS para desbloquear usuários no AD

Script VBS para desbloquear usuários no AD

Fala Pessoal… segue dica rápida e prática..

Precisei de um script para desbloquear um usuário no AD, e acabei encontrando este:

Caso você queira automatizar o script, basta comentar as linhas 01 e 02 e na linha 03 coloque o nome do usuário entre aspas em vez de username

username=inputbox(“Enter username:”)
if username = “” then wscript.quit

ldapPath = FindUser(username)

if ldapPath = “Not Found” then
wscript.echo “User not found!”
else
set objUser = getobject(ldapPath)
if isAccountLocked(objUser) then
objuser.put “lockoutTime”, 0
objUser.setinfo
wscript.echo “Account Unlocked”
else
wscript.echo “This account is not locked out”
end if
end if

Function FindUser(Byval UserName)
on error resume next

set objRoot = getobject(“LDAP://RootDSE”)
domainName = objRoot.get(“defaultNamingContext”)
set cn = createobject(“ADODB.Connection”)
set cmd = createobject(“ADODB.Command”)
set rs = createobject(“ADODB.Recordset”)

cn.open “Provider=ADsDSOObject;”

cmd.activeconnection=cn
cmd.commandtext=”SELECT ADsPath FROM ‘LDAP://” & domainName & _
“‘ WHERE sAMAccountName = ‘” & UserName & “‘”

set rs = cmd.execute

if err<>0 then
wscript.echo “Error connecting to Active Directory Database:” & err.description
wscript.quit
else
if not rs.BOF and not rs.EOF then
rs.MoveFirst
FindUser = rs(0)
else
FindUser = “Not Found”
end if
end if
cn.close
end function

Function IsAccountLocked(byval objUser)
on error resume next
set objLockout = objUser.get(“lockouttime”)

if err.number = -2147463155 then
isAccountLocked = False
exit Function
end if
on error goto 0

if objLockout.lowpart = 0 And objLockout.highpart = 0 Then
isAccountLocked = False
Else
isAccountLocked = True
End If

End Function

Script base: http://scriptsolution.zip.net/

Sobre Diego Duarte

Diego Duarte Atua como coordenador de NOC, toca um violãozinho nas horas vagas e tenta eternamente entender o que o fez escolher TI

Veja também!

Criando uma Managed Service Accounts (MSA)

Neste Tutorial iremos mostrar como criar uma conta de serviço gerenciada também conhecida como Managed …

Este artigo lhe foi útil? comente e ajude outros acrescentando seu ponto de vista!