Re: Inactive Computer Accounts

toomanymessi_at_gmail.com
Date: 02/08/05

  • Next message: fala: "Re: Audit Windows Logon" 
    Date: 8 Feb 2005 02:42:57 -0800

    Hi,

    D'ont know if there is a propertie in AD that content the last use of
    the computer attach to a domaine ...(any idea ?)

    But there is a password in the computer account that nornmally auto
    change very 7 days.

    The following script check te password age for that.

    On Error Resume Next

    DomainString=Inputbox("Enter the domain name","Check Active
    Computers","DomainName")

    if DomainString="" then
    wscript.echo "No domain specified or script cancelled."
    wscript.quit
    end if

    numDays=InputBox("What is the number of days to use as a cutoff for" &
    "Active Computer Accounts?","Check Active Computers","XX")

    if numDays="" then
    wscript.echo "No cutoff date specified or script cancelled."
    wscript.quit
    end if

    Set DomainObj = GetObject("WinNT://"&DomainString)

    if err.number<>0 then
    wscript.echo "Error connecting to " & DomainString
    wscript.quit
    end if

    DomainObj.Filter = Array("computer")
    Wscript.echo "Computer Accounts in " & DomainString & " older than " &
    numDays & " days."
    For each Computer in DomainObj
    Set Account = GetObject("WinNT://" & DomainString & "/" & Computer.Name
    & "$")
    RefreshTime = FormatNumber((Account.get("PasswordAge"))/86400,0)
    If CInt(RefreshTime) >= CInt(numDays) Then
    wscript.echo "**DELETE** " & Computer.Name & " Password Age is " &
    RefreshTime & " days."
    End If
    Next

    set DomainObj=Nothing
    set Shell=Nothing
    Wscript.quit

    If somebody have any other solution, I am client...

  • Next message: fala: "Re: Audit Windows Logon"