VBS: Блокировка пользователя в Домене

net user <название учетки> /domain /active:no

domainname=inputbox("Enter DNS Domain Name" & vbcrlf & "(Leave blank for current domain):")
username=inputbox("Enter username:")


if domainname = "" then
    set objRoot = getobject("LDAP://RootDSE")
    domainname = objRoot.get("defaultNamingContext")
end if

if username <> "" then

    wscript.echo finduser(username,domainname)
    
end if


Function FindUser(Byval UserName, Byval Domain) 
    on error resume next

    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://" & Domain & "' WHERE sAMAccountName = '" & UserName & "'"
    
    set rs = cmd.execute


    if err<>0 then
        FindUser="Error connecting to Active Directory Database:" & err.description
    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

Dim objRoot, strDomain
Dim objUser, strDisplayName, strTemp
Dim objConnection, objCommand, objRSet, strCommandText
Const ADS_SCOPE_SUBTREE = 2

Set objRoot = GetObject("LDAP://RootDSE")
strDomain = objRoot.Get("DefaultNamingContext")
Set objRoot = Nothing
strDisplayName = Trim(InputBox("Выводимое имя пользователя:"))
If Len(strDisplayName) > 0 Then
    Set objConnection = CreateObject("ADODB.Connection")
    objConnection.Provider = "ADsDSOObject"
    objConnection.Open "Active Directory Provider"
    Set objCommand = CreateObject("ADODB.Command")
    Set objCommand.ActiveConnection = objConnection
    strCommandText = "SELECT ADsPath FROM 'LDAP://" & strDomain & _
        "' WHERE objectCategory='Person' AND objectClass='User' AND displayName='" & strDisplayName & "'"
    objCommand.CommandText = strCommandText
    objCommand.Properties("Page Size") = 1000
    objCommand.Properties("Timeout") = 30
    objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
    Set objRSet = objCommand.Execute
    If objRSet.RecordCount = 1 Then
        objRSet.MoveFirst
        strTemp = objRSet.Fields("ADsPath").Value
        On Error Resume Next
        Set objUser = GetObject(strTemp)
        If Err.Number = 0 Then
            objUser.AccountDisabled = True
            objUser.SetInfo
            If Err.Number = 0 Then
                strTemp = "Учётная запись отключена."
            Else
                strTemp = "Ошибка отключения учётной записи: " & Err.Number
                Err.Clear
            End If
        Else
            strTemp = "Ошибка привязки к найденному объекту: " & Err.Number
            Err.Clear
        End If
        Set objUser = Nothing
    Else
        strTemp = "Учётная запись пользователя " & UCase(strDisplayName) & " не обнаружена."
    End If
    Set objRSet = Nothing
    Set objCommand = Nothing
    objConnection.Close
    Set objConnection = Nothing
    WScript.Echo strTemp
End If
WScript.Quit 0

Dim objWSNet, strDomain
Dim objTranslate, objUser, strDisplayName, strTemp
Const ADS_NAME_INITTYPE_DOMAIN = 1
Const ADS_NAME_TYPE_DISPLAY = 4
Const ADS_NAME_TYPE_1779 = 1

strDisplayName = Trim(InputBox("Выводимое имя пользователя:"))
If Len(strDisplayName) > 0 Then
    Set objWSNet = CreateObject("WScript.Network")
    strDomain = objWSNet.UserDomain
    Set objWSNet = Nothing
    On Error Resume Next
    Set objTranslate = CreateObject("NameTranslate")
    If Err.Number = 0 Then
        objTranslate.Init ADS_NAME_INITTYPE_DOMAIN, strDomain
        If Err.Number = 0 Then
            objTranslate.Set ADS_NAME_TYPE_DISPLAY, strDisplayName
            If Err.Number = 0 Then
                Set objUser = GetObject("LDAP://" & objTranslate.Get(ADS_NAME_TYPE_1779))
                If Err.Number = 0 Then
                    objUser.AccountDisabled = True
                    objUser.SetInfo
                    If Err.Number = 0 Then
                        strTemp = "Учётная запись отключена."
                    Else
                        strTemp = "Ошибка отключения учётной записи: " & Err.Number
                        Err.Clear
                    End If
                    Set objUser = Nothing
                Else
                    strTemp = "Ошибка привязки к найденному объекту: " & Err.Number
                    Err.Clear
                End If
            Else
                strTemp = "Ошибка транслирования: " & Err.Number
                Err.Clear
            End If
        Else
            strTemp = "Ошибка привязки к источнику транслирования: " & Err.Number
            Err.Clear
        End If
        Set objTranslate = Nothing
    Else
        strTemp = "Ошибка создания объекта ""NameTranslate"": " & Err.Number
        Err.Clear
    End If
    WScript.Echo strTemp
End If
WScript.Quit 0