NIM Posted August 22, 2006 Share Posted August 22, 2006 On error resume nextDim objADODim objContainerDim objChildDim UserWscript.Echo "The output will be written to C:\oldComputers.txt"set objADO = GetObject("LDAP://ou=workstations,ou=liverpool,dc=contoso,dc=local")set WshShell = WScript.CreateObject("WScript.Shell")Set fso = CreateObject("Scripting.FileSystemObject")fso.DeleteFile ("C:\oldComputers.txt")set txtStream = fso.OpenTextFile("C:\oldComputers.txt", 8, True)txtStream.WriteLine vbCrLfset objContainer = objADOFor each objChild in objContaineruser = MID(objChild.Name,4) If DateDiff ("d",objChild.LastLogin, Now) > 180 then txtStream.WriteLine user & " ---> " & DateDiff ("d",objChild.LastLogin, Now)_ & " Days since last login." & vbCrLf Nextmsgbox "Done..."WshShell.run "C:\oldComputers.txt"PLEASE MAKE SURE NO WORD WRAPPING IS HAPPENING IN YOUR SCRIPT!!!To make this script work you will need one thing!You will need the OU in which your computer accounts are kept.Edit the string LDAP://(e.g., 'LDAP://OU=workstations,OU=boston,DC=contoso,DC=com')The script will be written to the root of the c:\ drive. *Make sure you are an administrator to run this. Mr.Cherajek 1 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.