Senhores, tenho que tirar um relatorio para auditoria da minha empresa e tenho um script que vem fazendo isso pra mim sem problemas. Porem, eles agora querem uma informação nova nesse relatorio e nao estou conseguindo adaptar esse script que tenho. Preciso
da informação do ULTIMO LOGON do usuario, MESMO que a conta esteja desabilitada e se possivel, preciso saber QUANDO a conta do usuario foi desabilitada.
SEgue abaixo o script q tenho:
'---------------- INICIO ----------------
Sub ListUsers( strDomain )
Set objComputer = GetObject("WinNT://" & strDomain )
objComputer.Filter = Array( "User" )
For Each objUser In objComputer
suserInfo = objUser.Name & ", " & objUser.Fullname & ", " & objUser.Description & ", " & objUser.LastLogin & ", " & objUser.AccountDisabled
objFile.WriteLine(sUserInfo)
Next
End Sub
' ****************************************************************************
' Main
' ****************************************************************************
Dim strDomain
Dim sUserInfo
Dim sFileName
strDomain = WScript.Arguments(0)
sFileName = WScript.Arguments(1)
If strDomain = "" Then
WScript.Echo "VoCê não Adicionou os parametros necessários, chame o script pelo prompt, ex.: ListUsers.vbs dominio.local C:\listusers.txt"
End If
If sFileName = "" Then
WScript.Echo "VoCê não Adicionou os parametros necessários, chame o script pelo prompt, ex.: ListUsers.vbs dominio.local C:\listusers.txt"
End If
set objFSO = createobject("scripting.filesystemobject")
set objFile = objFSO.createtextfile(sFileName)
objFile.WriteLine("Usuario, Nome Completo, Descrição, Status da Conta")
ListUsers( strDomain )
objFile.Close
'---------------- FIM ----------------
Aguardo ajuda dos colegas, preciso com MUITA urgencia!
Albert Alberico dos Santos
Consegui encontrar um script que faz trazia o LASTLOGON e inclui as informações que o meu script trazia.
Segue abaixo o Script:
Option Explicit
On Error Resume Next
Dim FileSys, WrLines, DomainName, oDomain, oDomainItem
DomainName = "dominio.com.br"
lastdate = "31/12/2000"
Set FileSys = CreateObject("Scripting.FileSystemObject")
Set WrLines = FileSys.CreateTextFile("ListADNOVO.txt", True)
WrLines.WriteLine("Login de Rede,Nome Completo,Descricao,Conta Desabilitada?,Ultimo Logon na Rede")
Set oDomain = GetObject("WinNT://" & DomainName)
For Each oDomainItem in oDomain
If oDomainItem.Class = "User" AND oDomainItem.LastLogin > lastdate Then
WrLines.WriteLine(oDomainItem.Name & "," & oDomainItem.FullName & "," & oDomainItem.Description & "," & oDomainItem.AccountDisabled & "," & oDomainItem.LastLogin)
End If
Next
WrLines.Close
Albert Alberico dos Santos
