'set up some varaibles
bDisable = 0                            'do you want to disable and move the accounts?
strFileName = "c:\users.txt"                    'the file where the tab delimited results are saved

strUserDN = "domaincontroller/OU=All Users, dc=yourdomain, dc=com"      'initial OU where the users are located
strNewParentDN = "OU=Inactive Users, dc=yourdomain, dc=com"      'location where disabled users are moved to
strDomain = "yourdomain.com"                'FQDN
iDayThreshold = 180                        'number of days without logging in

strOut = ""                            'tmp string
strOut2 = ""                        'another tmp string
Main()

Sub Main()
'get the initial data then ask some questions
    EnumOUs("LDAP://" & strUserDN)

    'yes=6, no=7, cancel=2
    answer = MsgBox(strOut & vbCrLf & "Disable and move these users?", vbYesNoCancel)
    If answer=2 Then
        Exit Sub
    ElseIf answer=6 Then
        bDisable = 1
        EnumOUs("LDAP://" & strUserDN)
    End If

    answer = MsgBox("Save the data to " & strFileName & "?", vbYesNoCancel)

    If answer = 6 Then
        strOut = "username" & vbTab & "Name" & vbTab & "Last Logon" & vbTab & "Days" & vbCrLf & strOut
        strOut2 = "These users have never logged in:" & vbCRLF _
                & "username" & vbTab & "Name" & vbTab & "Creation Date" & vbCRLF & strOut2
        strOut = strOut & vbCRLF & vbCRLF & strOut2
        SaveToFile strOut
    End If
End Sub

Function EnumOUs(sADsPath)
'recursively finds all of the OU's and users in the given AD path

    Set oContainer = GetObject(sADsPath)
    oContainer.Filter = Array("OrganizationalUnit")
    For Each oOU in oContainer
        EnumUsers(oOU.ADsPath)
        EnumOUs(oOU.ADsPath)
    Next
End Function

Function EnumUsers(sADsPath)
'finds all of the users' last login time

    Set oContainer = GetObject(sADsPath)
    oContainer.Filter = Array("User")
    For Each oADobject in oContainer
        Set objLogon = oADobject.Get("lastLogon")
        intLogonTime = objLogon.HighPart * (2^32) + objLogon.LowPart 
        intLogonTime = intLogonTime / (60 * 10000000)
        intLogonTime = intLogonTime / 1440
        intLogonTime = intLogonTime + #1/1/1601#
        inactiveDays = Fix(Now() - intLogonTime)

        'adds a list of people who have never logged on.
        If intLogonTime = "1/1/1601" Then strOut2 = strOut2 & oADobject.sAMAccountName & vbTab & oADobject.DisplayName & vbTab & oADobject.whencreated & vbCRLF
        
        'if they are beyond the threshhold, it will add them to the output string
        If inactiveDays > iDayThreshold And intLogonTime <> "1/1/1601" Then
            strOut = strOut & oADobject.sAMAccountName _
                & vbTab & oADobject.displayName _
                & vbTab & intNewTime _
                & vbTab & intLogonTime _
                & vbTab & intMaxTime _
                & vbTab & inactiveDays & vbCRLF

            'if disabling was requested, it will move them to a new folder and disable the account
            If bDisable = 1 Then
                If strNewParentDN <> "" Then MoveUser oADobject.Name, oADobject.ADsPath
                Set objUser = GetObject("WinNT://" & strDomain & "/" & oADobject.sAMAccountName)
                objUser.AccountDisabled = True
                objUser.SetInfo
            End If
        End If
    Next
End Function

Sub MoveUser(sName, sPath)
'moves the user from the given OU to a new OU
    Set objUser = GetObject("LDAP://" & strNewParentDN)
    objUser.MoveHere sPath, sName
End Sub

Sub SaveToFile(strData)
'writes the given data to a text file
    Dim objFSO
    Set objFSO = CreateObject("Scripting.FileSystemObject") 
    If objFSO.FileExists(strFileName) Then
        Set objTextStream = objFSO.OpenTextFile(strFileName, 2)
        
        objTextStream.Write strData
        objTextStream.Close
        Set objTextStream = Nothing
    Else
        Set objTextStream = objFSO.CreateTextFile(strFileName, True)        
        objTextStream.Write strData
        objTextStream.Close
        Set objTextStream = Nothing
    End If
End Sub

var Stdout = WScript.Stdout;
var Stdin  = WScript.Stdin;
var objDict = new ActiveXObject("Scripting.Dictionary");
var objConnection = new ActiveXObject("ADODB.Connection");
var objCommand = new ActiveXObject("ADODB.Command");
var oRoot = GetObject("LDAP://rootDSE");
var sDomain = oRoot.Get("defaultNamingContext");

var strLDAP  = "LDAP://OU=Domain Controllers," + sDomain;
var ADS_SCOPE_SUBTREE = 2;
var space = '                                                                                                                                       ';
var strDC, temp, arr

// Формируем запрос на поиск всех серверов домена ========================
objConnection.Provider = "ADsDSOObject";
objConnection.Open("Active Directory Provider");

objCommand.ActiveConnection = objConnection;
objCommand.Properties("Page Size") = 500;
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE;
objCommand.Properties("Sort On") = "sAMAccountName";
objCommand.CommandText = "SELECT sAMAccountName,adsPath FROM '" + strLDAP + "' WHERE objectCategory='computer'";
// =======================================================================

// Выполняем запрос
var objRSServers = objCommand.Execute;

// Перебираем все найденные серверы и добавляем юзеров в глобальный
// для сценария словарь objDict (в функции GetUsers)
while ( !objRSServers.EOF ) {
   strDC = objRSServers.Fields("sAMAccountName").Value;
   GetUsers(strDC.substr(0, strDC.length-1 ));
   objRSServers.moveNext()
}

// сортируем логины по алфавиту
arr = (new VBArray(objDict.Keys())).toArray();
for (var i = arr.length - 1; i>=0; i--) {
   for (var j= 0; j<i; j++) {
      if ( arr[j]>arr[j+1] ) {
         temp=arr[j+1];
         arr[j+1]=arr[j];
         arr[j]=temp;
      }
   }
}

// Перебираем всех найденных юзверей
var name, lastLogon, age, comment, Item
for (var usr in arr)
{
   name = arr[usr];
   Item = objDict(name);
   lastLogon = Item[0];
   comment = Item[1];

   age = (new Date() - lastLogon)/(86400*1000);
   Stdout.WriteLine( (name+space).substr(0,30) +
                     "Age: "+(age.toFixed(0)+space).substr(0,10)+
                     "Last logon: " +(lastLogon.toLocaleString()+space).substr(0,32)+
                     "Comment: " +comment );
}

Stdout.WriteLine ("\nPress Enter");
Stdin.ReadLine ();


//
// FUNCTIONS
//


// Выбирает всех пользователей на заданном сервере домена в ассоциативный массив
function GetUsers( strDC ) {
var dLastLogin;
var Conn = new ActiveXObject("ADODB.Connection");
var RSUsers = new ActiveXObject ("ADODB.Recordset");
var query = "SELECT sAMAccountName, lastLogon FROM 'LDAP://" + strDC + "' WHERE objectCategory='user'"

   Stdout.WriteLine("Working on " + strDC);

   Conn.Provider = "ADsDSOObject";
   Conn.Open("Active Directory Provider");
   RSUsers.ActiveConnection = Conn;

   for ( RSUsers.Open (query); !RSUsers.EOF; RSUsers.moveNext() ) {

      // Для уникальности имени добавляем к нему имя DC
      sAMAccountName = strDC+": "+RSUsers.Fields("sAMAccountName").Value;

      if ( dLastLogin = RSUsers.Fields("lastLogon").Value ) {
          // сюда попадаем, когда у атрибута есть значение (любое)
          dLastLogin     = getLast(dLastLogin);
         AddToDict(sAMAccountName, dLastLogin, '   Success')
      } else {
         // сюда попадаем, когда атрибута нет значения (<Not Set>)
         AddToDict(sAMAccountName, new Date(1900,0,1,0,0,0), '<Not Set>')
      }
   }
}


// добавляет в ассоциативный массив значение с примечанием
function AddToDict(name, value, comment) {
   if (!objDict.Exists (name) ) {
      objDict.Add ( name, [value, comment] );
   } else {
      if (objDict(name)[0] < value ) {
         objDict(name) = [value, comment];
      }
   }
}

// конвертирует lastLogon, возвращенный запросом к LDAP в удобоваримую дату
// возвращает массив - дату как Date() и дату как число
function getLast( last ) {
var res,
    intLastLogonTime = last.HighPart* (4294967296) + last.LowPart;

   res = intLastLogonTime / 10000;
   res = res - Math.abs((new Date(1601,0,1)).getTime());

   return (new Date(res));
}

if ( RSUsers.Fields("lastLogon").Value ) {

var Stdout = WScript.Stdout;
var Stdin  = WScript.Stdin;
var objDict = new ActiveXObject("Scripting.Dictionary");
var objConnection = new ActiveXObject("ADODB.Connection");
var objCommand = new ActiveXObject("ADODB.Command");
var oRoot = GetObject("LDAP://rootDSE");
var sDomain = oRoot.Get("defaultNamingContext");

var strLDAP  = "LDAP://OU=Domain Controllers," + sDomain;
var ADS_SCOPE_SUBTREE = 2;
var space = '                                                                                                                                       ';
var strDC, temp, arr

// Формируем запрос на поиск всех серверов домена ========================
objConnection.Provider = "ADsDSOObject";
objConnection.Open("Active Directory Provider");

objCommand.ActiveConnection = objConnection;
objCommand.Properties("Page Size") = 500;
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE;
objCommand.Properties("Sort On") = "sAMAccountName";
objCommand.CommandText = "SELECT sAMAccountName,adsPath FROM '" + strLDAP + "' WHERE objectCategory='computer'";
// =======================================================================

// Выполняем запрос
var objRSServers = objCommand.Execute;

// Перебираем все найденные серверы и добавляем юзеров в глобальный
// для сценария словарь objDict (в функции GetUsers)
while ( !objRSServers.EOF ) {
   strDC = objRSServers.Fields("sAMAccountName").Value;
   GetUsers(strDC.substr(0, strDC.length-1 ));
   objRSServers.moveNext()
}

// сортируем логины по алфавиту
arr = (new VBArray(objDict.Keys())).toArray();
for (var i = arr.length - 1; i>=0; i--) {
   for (var j= 0; j<i; j++) {
      if ( arr[j]>arr[j+1] ) {
         temp=arr[j+1];
         arr[j+1]=arr[j];
         arr[j]=temp;
      }
   }
}

// Перебираем всех найденных юзверей
var name, lastLogon, age
for (var usr in arr)
{
   name = arr[usr];
   lastLogon = objDict(name);

   // Если дата последнего входа не указана, то можно пропустить их,
   // раскомментировав следующую строку
   //if (lastLogon[1] != 0)
   {
      age = (new Date() - lastLogon[0])/(86400*1000);
      Stdout.WriteLine( (name+space).substr(0,30) +
                        "Age: "+(age.toFixed(0)+space).substr(0,10)+
                        "Last logon: " +lastLogon[0].toLocaleString() );
   }
}

Stdout.WriteLine ("\nPress Enter");
Stdin.ReadLine ();


//
// FUNCTIONS
//


// Выбирает всех пользователей на заданном сервере домена
function GetUsers( strDC ) {
var dLastLogin;
var Conn = new ActiveXObject("ADODB.Connection");
var RSUsers = new ActiveXObject ("ADODB.Recordset");
var query = "SELECT sAMAccountName, lastLogon FROM 'LDAP://" + strDC + "' WHERE objectCategory='user'"

   Stdout.WriteLine("Working on " + strDC);

   Conn.Provider = "ADsDSOObject";
   Conn.Open("Active Directory Provider");
   RSUsers.ActiveConnection = Conn;

   for ( RSUsers.Open (query); !RSUsers.EOF; RSUsers.moveNext() ) {
      if ( RSUsers.Fields("lastLogon").Value ) {

         // Для уникальности имени добавляем к нему имя DC
         sAMAccountName = strDC+": "+RSUsers.Fields("sAMAccountName").Value;
         dLastLogin     = RSUsers.Fields("lastLogon").Value;

         dLastLogin = getLast(dLastLogin);

         if (!objDict.Exists (sAMAccountName) ) {
            objDict.Add ( sAMAccountName, dLastLogin );
         } else {
            if (objDict(sAMAccountName) < dLastLogin ) {
               objDict(sAMAccountName) = dLastLogin;
            }
         }
      }
   }
}

// конвертирует lastLogon, возвращенный запросом к LDAP в удобоваримую дату
// возвращает массив - дату как Date() и дату как число
function getLast( last ) {
var res,
    intLastLogonTime = last.HighPart* (4294967296) + last.LowPart;

   res = intLastLogonTime / 10000;
   res = res - Math.abs((new Date(1601,0,1)).getTime());

   return [(new Date(res)), intLastLogonTime]; // возвращаем массив
}

if (objDict(sAMAccountName) < dLastLogin ) {