Re: Inactive Computer Accounts
Date: 02/08/05

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


    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

    if DomainString="" then
    wscript.echo "No domain specified or script cancelled."
    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."
    end if

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

    if err.number<>0 then
    wscript.echo "Error connecting to " & DomainString
    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

    set DomainObj=Nothing
    set Shell=Nothing

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

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