[Iska]

2. уже смирился, что из самого экселя никто не даёт примера, чтоб отключить список пользователей именно из эксель файла, без перевода в CSV. »

Да ну. На MS за глаза хватало примеров.

[yuriy.nepomnyashchiy.3@fb]

Iska, ну не знаю как там за глаза, но то что мне нужно я вот не нашёл.

[Iska]

yuriy.nepomnyashchiy.3@fb, вот прямо готового именно для Вашего конкретного случая с «EmployeeID» и «DisplayName» может и не быть, разумеется.

А так есть и в Script Center, и в отдельных chm-сборниках. Берём и лепим из кирпичиков нечто наподобие такого:

Скрытый текст

Код:

Option Explicit

Sub Sample()
    Const ADS_UF_ACCOUNTDISABLE = 2

    Dim objRange As Range
    
    Dim objConnection As Object
    Dim objRecordSet As Object
    
    
    For Each objRange In ThisWorkbook.Worksheets.Item("Лист1").UsedRange.Rows
        If Not objRange.Row = 1 Then
            Set objConnection = CreateObject("ADODB.Connection")
            objConnection.Open "Provider=ADsDSOObject;"
            
            With CreateObject("ADODB.Command")
                .ActiveConnection = objConnection
                .Properties("Sort on") = "cn"
                
                .CommandText = _
                    "<LDAP://dc=mydomain,dc=local>;" & _
                    "(&(objectClass=user)(objectCategory=person)(employeeID=" & objRange.Cells(1, 1).Value & ")(displayName=" & objRange.Cells(1, 2).Value & "));" & _
                    "userAccountControl,distinguishedName;" & _
                    "subtree"
            
                Set objRecordSet = .Execute
            End With
            
            With objRecordSet
                Do Until .EOF
                    Debug.Print .Fields("distinguishedName")
                    
                    With GetObject("LDAP://" & .Fields("distinguishedName"))
                        .Put "userAccountControl", .Get("userAccountControl") Or ADS_UF_ACCOUNTDISABLE
                        .SetInfo
                    End With

                    .MoveNext
                Loop
                
                .Close
            End With
            
            objConnection.Close
            Set objConnection = Nothing
        End If
    Next
End Sub

[yuriy.nepomnyashchiy.3@fb]

Iska, спасибо завтра попробую!

[yuriy.nepomnyashchiy.3@fb]

Iska, подскажите, в данном примере не вижу пути к файлу, с которого провести отключение?

[Iska]

yuriy.nepomnyashchiy.3@fb, а там нет пути. Процедура вставляется непосредственно в модуль «ЭтаКнига» той Рабочей книги, на первом листе («Лист1») которой содержится список из двух столбцов с заголовками. Я понял вопрос:

из самого экселя никто не даёт примера, чтоб отключить список пользователей именно из эксель файла »

именно так — чтобы работало непосредственно из VBA, а не из внешнего файла. Впрочем, перевести этот код во внешний скрипт WSH или PoSH тоже вполне возможно.

[Kazun]

Код:

$file = "С:\users.xlsx"
$ex = New-Object -ComObject Excel.Application
$wb = $ex.Workbooks.Open($file)
$wb.Worksheets.Item("Лист1").UsedRange.Rows | Foreach {
	$DisplayName = $_.value2[1,1]
	$EmployeeID = $_.value2[1,2]
	
	Write-Host ('EmployeeID: ' + $EmployeeID) -ForegroundColor Yellow
	Write-Host ('DisplayName: ' + $DisplayName) -ForegroundColor Yellow
	
	Get-ADuser -Filter "EmployeeID -eq '$EmployeeID' -and DisplayName -eq '$DisplayName'" | Disable-ADAccount -Confirm:$false -PassThru
}

$wb.Close()
$ex.Quit()
Get-Process EXCEL | Stop-Process -Force
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($ex) 
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($wb)
Remove-Variable ex
Remove-Variable wb

[Iska]

Kazun, это:

Get-Process EXCEL | Stop-Process -Force »

является обязательным?

[Kazun]

Думаю, нет. Но процесс EXCEL , часто остается висеть в процессах, чтобы наверняка