[Iska]

Daemonstar, ясно. Вопрос звучит так: «Как удалить учётные записи неактивных в течение определённого времени локальных пользователей?». По-простому — примерно так (удалять не будем, только отключать):

читать дальше »

Код:

Option Explicit

Dim strComputer

Dim objIADsContainer
Dim objIADsUser
Dim dtLastLogon

For Each strComputer In Array("Machine01", "Machine02", "MachineN")
	WScript.Echo "[" & strComputer & "]:"
	
	Set objIADsContainer = GetObject("WinNT://" & strComputer & ",computer")
	
	objIADsContainer.Filter = Array("user")
	
	For Each objIADsUser In objIADsContainer
		On Error Resume Next
		dtLastLogon = CDate(objIADsUser.LastLogin)
		
		If Err.Number = 0 Then
			On Error Goto 0
			
			If DateDiff("d", dtLastLogon, Now()) > 90 Then
				WScript.Echo "    " & objIADsUser.Name & vbTab & dtLastLogon
				
				objIADsUser.AccountDisabled = True
				objIADsUser.SetInfo
			End If
		End If
		
		On Error Goto 0
	Next
Next

WScript.Quit 0

Прилагаю также ссылку: Delprof2 - User Profile Deletion Tool • Helge Klein.