Get Origional install date

[EDN Admin]

I have a script that will ping each computer from a list i have and it will write the ip address of the computer to an excel file.
What line do i add to get it to write the origional install date to colum 4
<pre class="prettyprint vb

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = True

intRow = 2



Set Fso = CreateObject("Scripting.FileSystemObject")

Set objWorkbook = objExcel.Workbooks.Open("C:File_Name.XLSFile_Name.xls")

Set InputFile = objWorkbook

Do Until objExcel.Cells(intRow,1).Value = ""

strComputer = objExcel.Cells(intRow, 1).Value



objExcel.Cells(1, 1).Value = "Machine Name"

objExcel.Cells(1, 2).Value = "IP Address"

objExcel.Cells(1, 3).Value = "Status"



On Error Resume Next

Set objWMIService = GetObject("winmgmts:\" & strComputer & "rootcimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True")

For Each objItem in colItems

If Err.Number <> 0 Then[/code]
<br/><hr class="sig Sometimes the answer is so blindingly obvious i fail to see it. Sdog

View the full article