View difference between Paste ID: c7FMJgdZ and YHKQT70h

-'MODIEIFED on 09.10.2013
+'MODIEIFED on 06.02.2014 by ANON
 'CREATE A Reports Sub Folder since the script doesn't do it for you.
 On Error Resume Next
-Const ADS_SCOPE_SUBTREE = 2
+
-Const ForAppending = 8
+Const ADS_SCOPE_SUBTREE = 2
 Const ForAppending = 8
 Const TriStateFalse = 0
-TIME_DATE_FORMAT = Year(Now()) & Month(Now()) & Day(Now())
+
-FILE_NAME = ".\Reports\AD_ComputersUsers" & TIME_DATE_FORMAT & ".csv"
+TIME_DATE_FORMAT = "." & Year(Now()) & Month(Now()) & Day(Now()) & "." & Hour(Now()) & Minute(Now()) & Second(Now())
-COMPUTER_LIST_FILE_NAME = ".\Reports\" & TIME_DATE_FORMAT & "AD_Computers.txt"
+FILE_NAME = ".\Reports\AD_Users" & TIME_DATE_FORMAT & ".csv"
 
 Dim fso, cn, cmd, ou, rs, objStream, OutputBuilder, outFile
 
-Set fso = CreateObject("Scripting.FileSystemObject")
+Set fso = CreateObject("Scripting.FileSystemObject")
-'Set outFile = fso.OpenTextFile(COMPUTER_LIST_FILE_NAME, ForAppending, True)
+
 Set cn = CreateObject("ADODB.Connection")
-Set cn = CreateObject("ADODB.Connection")
+cn.Provider = "ADsDSOObject"
-cn.Provider = "ADsDSOObject"
+cn.Open "Active Directory Provider"
-cn.Open "Active Directory Provider"
+Set cmd = CreateObject("ADODB.Command")
-Set cmd = CreateObject("ADODB.Command")
+Set cmd.ActiveConnection = cn
-Set cmd.ActiveConnection = cn
+ou = "OU=Computers,DC=DOMAINNAME,DC=com"
-ou = "DC=domain,DC=com"
+
-cmd.CommandText = "SELECT name " & _
+cmd.CommandText = "SELECT name FROM 'LDAP://" & ou & "' WHERE objectClass='Computer' ORDER BY name"
-			  "FROM 'LDAP://" & ou & "' " & _
+cmd.Properties("Page Size") = 1000
-			  "WHERE objectClass='computer' " & _
+cmd.Properties("Searchscope") = ADS_SCOPE_SUBTREE
-			  "ORDER BY name"
+
-cmd.Properties("Page Size") = 1000
+Set rs = cmd.Execute
-cmd.Properties("Searchscope") = ADS_SCOPE_SUBTREE
+
 LineCount = rs.RecordCount
-Set rs = cmd.Execute
+
 
 Set objStream = FSO.CreateTextFile(FILE_NAME, True, TristateFalse)
 
 msgbox ("Beginning Domain Scan (" & LineCount & ")")
-set OutputBuilder = ""
+
 Do Until rs.EOF
-msgbox ("Beginning Domain Scan")
+	strComputer = rs(0)
 	if strComputer = "" then
 		wscript.quit
-	strcomputer = rs(0)
+
 		OutputBuilder = "" 'RESET OUTPUT BUILDER
-	' WScript.Echo rs(0) 'popup of every computer outputted to file
+		OutputBuilder = strComputer & ","
-	'outFile.WriteLine rs(0)
+		Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate,authenticationLevel=pktPrivacy}").ExecQuery ("select * from Win32_PingStatus where address = '" & strComputer & "'")
 		For Each objStatus in objPing
-	if strcomputer = "" then
+			If IsNull(objStatus.StatusCode) or objStatus.StatusCode<>0 Then
 				'REQUEST TIME OUT
 				OutputBuilder = OutputBuilder & "DID NOT REPLY" & "," & "NA"
 			else
-	Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery ("select * from Win32_PingStatus where address = '" & strcomputer & "'")
+				'PING RESPONSE
 				set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
-			If IsNull(objStatus.StatusCode) or objStatus.StatusCode<>0 Then
+
-				'request timed out
+				For Each objComputer in colSettings
-				'msgbox(strcomputer & " did not reply" & vbcrlf & vbcrlf & _
+					If strComputer <> objComputer.name Then
-						'"Please check the name and try again")
+						OutputBuilder = OutputBuilder & "NAME MISSMATCH"
 					else
-				'PING CHALLANGE
+						OutputBuilder = OutputBuilder & objComputer.name & "," & objComputer.username
 
 						'Computer Info.
-				Set IPConfigSet = objWMIService.ExecQuery ("Select IPAddress from Win32_NetworkAdapterConfiguration ")
+						Set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
-				For Each objComputer in colSettings
+						Set dtmConvertedDate = CreateObject("WbemScripting.SWbemDateTime")
-					OutputBuilder = objComputer.name & "," & objcomputer.username
+						For Each objOS in colOperatingSystems
 							dtmBootup = objOS.LastBootUpTime
-					'UPTIME
+							dtmLastBootUpTime = WMIDateStringToDate(dtmBootup)
-					Set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
+							dtmSystemUptime = DateDiff("h", dtmLastBootUpTime, Now)
-					For Each objOS in colOperatingSystems
+							OutputBuilder = OutputBuilder & "," & dtmSystemUptime
-						dtmBootup = objOS.LastBootUpTime
+
-						dtmLastBootUpTime = WMIDateStringToDate(dtmBootup)
+							'OutputBuilder = OutputBuilder & "," & objOS.BootDevice
-						dtmSystemUptime = DateDiff("h", dtmLastBootUpTime, Now)
+							'OutputBuilder = OutputBuilder & "," & objOS.BuildNumber
-						OutputBuilder = OutputBuilder & "," & dtmSystemUptime
+							'OutputBuilder = OutputBuilder & "," & objOS.BuildType
-					Next
+							'OutputBuilder = OutputBuilder & "," & objOS.Caption
 							'OutputBuilder = OutputBuilder & "," & objOS.CodeSet
-					'IPADDRESS
+							'OutputBuilder = OutputBuilder & "," & objOS.CountryCode
-					For Each IPConfig in IPConfigSet
+							'OutputBuilder = OutputBuilder & "," & objOS.Debug
-						If Not IsNull(IPConfig.IPAddress) Then
+							'OutputBuilder = OutputBuilder & "," & objOS.EncryptionLevel
-							For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
+							'dtmConvertedDate.Value = objOS.InstallDate
-								If Not IPConfig.IPAddress(i) = "" Then
+							'dtmInstallDate = dtmConvertedDate.GetVarDate
-									OutputBuilder = OutputBuilder & "," & IPConfig.IPAddress(i)
+							'OutputBuilder = OutputBuilder & "," & & dtmInstallDate
-								Else
+							'OutputBuilder = OutputBuilder & "," & objOS.NumberOfLicensedUsers
-									OutputBuilder = OutputBuilder & ", NA"
+							'OutputBuilder = OutputBuilder & "," & objOS.Organization
-								End If
+							'OutputBuilder = OutputBuilder & "," & objOS.OSLanguage
-							Next
+							'OutputBuilder = OutputBuilder & "," & objOS.OSProductSuite
-						End If
+							'OutputBuilder = OutputBuilder & "," & objOS.OSType
-					Next
+							'OutputBuilder = OutputBuilder & "," & objOS.Primary
 							'OutputBuilder = OutputBuilder & "," & objOS.RegisteredUser
-					objStream.WriteLine OutputBuilder 'Builds the Final Output
+							'OutputBuilder = OutputBuilder & "," & objOS.SerialNumber
 							OutputBuilder = OutputBuilder & "," & objOS.Description 'Computer Description
 							'OutputBuilder = OutputBuilder & "," & objOS.Version 'OS VERSION
 						Next
 
 						'IPADDRESS
-	rs.MoveNext
+						Set IPConfigSet = objWMIService.ExecQuery ("Select IPAddress from Win32_NetworkAdapterConfiguration ")
-Loop
+						For Each IPConfig in IPConfigSet
 							If Not IsNull(IPConfig.IPAddress) Then
 								For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
 									If Not IPConfig.IPAddress(i) = "" Then
 										OutputBuilder = OutputBuilder & "," & IPConfig.IPAddress(i)
 									Else
-Set outFile = Nothing
+										OutputBuilder = OutputBuilder & ", NA"
 									End If
 								Next
 							End If
-Function WMIDateStringToDate(dtmBootup)
+						Next
-	WMIDateStringToDate =  CDate(Mid(dtmBootup, 5, 2) & "/" & _
+					End If
-		Mid(dtmBootup, 7, 2) & "/" & Left(dtmBootup, 4) _
+
-		& " " & Mid (dtmBootup, 9, 2) & ":" & Mid(dtmBootup, 11, 2) & ":" & Mid(dtmBootup, 13, 2))
+
 		next
 		objStream.WriteLine OutputBuilder 'Builds the Computer Information Output
 	end if
 	rs.MoveNext
 Loop
 
 outFile.Close
 objStream.Close
 msgbox ("Domain Has Been Processed")
 
 Set outFile = Nothing
 Set objStream = Nothing
 Set fso = Nothing
 
 Function WMIDateStringToDate(dtmBootup)
 	WMIDateStringToDate =  CDate(Mid(dtmBootup, 5, 2) & "/" & _
 		Mid(dtmBootup, 7, 2) & "/" & Left(dtmBootup, 4) _
 		& " " & Mid (dtmBootup, 9, 2) & ":" & Mid(dtmBootup, 11, 2) & ":" & Mid(dtmBootup, 13, 2))
 End Function