Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
'*********************************************
'* *
'* Author: djtech2k sportsfan@teamarsenal.net*
'* *
'*********************************************
Option Explicit
Dim objRootDSE, strDNSDomain, objCommand, objConnection, strQuery
Dim objRecordSet, strDN, strSAM, strBase, strFilter, strAttributes
Dim objUser
Set objRootDSE = GetObject("LDAP://RootDSE")
strDNSDomain = objRootDSE.Get("defaultNamingContext")
Set objCommand = CreateObject("ADODB.Command")
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
objCommand.ActiveConnection = objConnection
' Search for Locked Users and Unlock Them
strBase = "<LDAP://" & strDNSDomain & ">"
strFilter = "(&(objectCategory=person)(objectClass=user))"
strAttributes = "distinguishedName,sAMAccountName"
strQuery = strBase & ";" & strFilter & ";" & strAttributes & ";subtree"
objCommand.CommandText = strQuery
objCommand.Properties("Page Size") = 100
objCommand.Properties("Timeout") = 30
objCommand.Properties("Cache Results") = False
Set objRecordSet = objCommand.Execute
Do Until objRecordSet.EOF
strDN = objRecordSet.Fields("distinguishedName")
strSAM = objRecordSet.Fields("sAMAccountName")
Set objUser = GetObject("LDAP://" & strDN)
If objUser.IsAccountLocked = True Then
objUser.IsAccuntLocked = False
objUser.SetInfo
wscript.echo strSAM & " has been unlocked."
End If
objRecordSet.MoveNext
Loop
objConnection.Close