Inventory in ASP

[jay_kbvt]

Hi,

I m new to ASP. I have written a script to take inventory of PCs on my
network in an excel spreadsheet. I want it to be available whenever
wherever needed by my managers and other accounts/purchase people. Is
there any way possible that I can put it on my intranet website using
ASP...????

Thanx in advance....

Jaydeep.

Script Code goes here.
'---------------------------------------------------------------------------------------------------------
Set objExcel = CreateObject("E xcel.Applicatio n")
objExcel.Visibl e = True
objExcel.Workbo oks.Add
x = 1
For i = 1 To 15
objExcel.Cells( x, i).Font.Bold = True
Next
objExcel.Cells( 1, 1).Value = "Machine Name"
objExcel.Cells( 1, 2).Value = "# of Procs"
objExcel.Cells( 1, 3).Value = "Proc Type"
objExcel.Cells( 1, 4).Value = "Max Clock Speed"
objExcel.Cells( 1, 5).Value = "Tot Phy Mem"
objExcel.Cells( 1, 6).Value = "Free Phy Mem"
objExcel.Cells( 1, 7).Value = "Tot Virtual Mem"
objExcel.Cells( 1, 8).Value = "Free Virtual Mem"
objExcel.Cells( 1, 9).Value = "Tot Visible Mem"
objExcel.Cells( 1, 10).Value = "Manufactur er"
objExcel.Cells( 1, 11).Value = "Model"
objExcel.Cells( 1, 12).Value = "OS Serial Number"
objExcel.Cells( 1, 13).Value = "Machine Serial Number"
objExcel.Cells( 1, 14).Value = "Free Space"
objExcel.Cells( 1, 15).Value = "File System"
objExcel.Cells( 1, 16).Value = "Device ID"
''''''''''''''' '''
x = 2
strComputers = InputBox _
("What computer would you like info on?", _
"Inventory. ", strLocalCompute r)
On Error Resume Next
Set objNetwork = CreateObject("W script.Network" )
strLocalCompute r = objNetwork.Comp uterName
If strComputers = "" Then
WScript.Quit
End If
'''''''
arrComputers = Split(strComput ers, " ")
For Each strComputer In arrComputers
objExcel.Cells( x, 1).Value = strComputer
x = x + 1
y = x - 1
''''''''''''''
Set objWMIService = GetObject("winm gmts:\\" & strComputer &
"\root\CIMV 2")
Set colCSes = objWMIService.E xecQuery("SELEC T * FROM
Win32_ComputerS ystem")
For Each objCS In colCSes
objExcel.Cells( y, 2).Value = objCS.NumberOfP rocessors
Next
Set colProcessors = objWMIService.E xecQuery("Selec t * from
Win32_Processor ")
For Each objProcessor In colProcessors
objExcel.Cells( y, 3).Value = objProcessor.Na me
objExcel.Cells( y, 4).Value = objProcessor.Ma xClockSpeed
Next
Set objWMIService = GetObject("winm gmts:\\" & strComputer &
"\root\CIMV 2")
Set colCSItems = objWMIService.E xecQuery("SELEC T * FROM
Win32_ComputerS ystem")
For Each objCSItem In colCSItems
objExcel.Cells( y, 5).Value = objCSItem.Total PhysicalMemory
Next
Set colOSItems = objWMIService.E xecQuery("SELEC T * FROM
Win32_Operating System")
For Each objOSItem In colOSItems
objExcel.Cells( y, 6).Value = objOSItem.FreeP hysicalMemory
objExcel.Cells( y, 7).Value = objOSItem.Total VirtualMemorySi ze
objExcel.Cells( y, 8).Value = objOSItem.FreeV irtualMemory
objExcel.Cells( y, 9).Value = objOSItem.Total VisibleMemorySi ze
Next
Set objWMIService = GetObject("winm gmts:\\" & strComputer &
"\root\CIMV 2")
Set colItems = objWMIService.E xecQuery("SELEC T * FROM
Win32_ComputerS ystem")
For Each objItem In colItems
objExcel.Cells( y, 10).Value = objItem.Manufac turer
objExcel.Cells( y, 11).Value = objItem.Model
Next
Set colOperatingSys tems = objWMIService.E xecQuery("Selec t * from
Win32_Operating System")
For Each objOperatingSys tem In colOperatingSys tems
objExcel.Cells( y, 12).Value = objOperatingSys tem.SerialNumbe r
Next
Set colItems = objWMIService.E xecQuery("SELEC T * FROM Win32_BIOS")
For Each objItem In colItems
objExcel.Cells( y, 13).Value = objItem.SerialN umber
Next

Const CONVERSION_FACT OR = 1048576
Set colItems = objWMIService.I nstancesOf("SEL ECT * FROM
Win32_LogicalDi sk")
For Each objItem In colItems
FreeMegaBytes = objItem.FreeSpa ce / CONVERSION_FACT OR
objExcel.Cells( y, 14).Value = objItem.FreeMeg aBytes
objExcel.Cells( y, 15).Value = objItem.FileSys tem
objExcel.Cells( y, 16).Value = objItem.DeviceI D
Next

[McKirahan]

"jay_kbvt" <ja************ *@gmail.com> wrote in message
news:11******** *************@g 44g2000cwa.goog legroups.com...

Hi,

I m new to ASP. I have written a script to take inventory of PCs on my
network in an excel spreadsheet. I want it to be available whenever
wherever needed by my managers and other accounts/purchase people. Is
there any way possible that I can put it on my intranet website using
ASP...????

[snip]

File + Save As (Save as type = Web page)

[paul]

I'd suggest putting the data into an Access database and perhaps look
at some of the database examples at www.asp101.com/samples

But in more direct answer to your question:

Using Excel Spreadsheets as Web Data Sources by Steven Raines -
11/23/1999
http://www.algonquinstudios.com/Home...WebDataSources

Extract data from Excel Spreadsheet using ASP by Nabeel Akhtar -
9/25/2005
http://www.geekpedia.com/tutorial143...using-ASP.html

VBScript and Excel
http://www.greggriffiths.org/webdev/both/excel/

Best regards,
-Paul
www.Bullschmidt.com - Freelance Web and Database Developer
www.Bullschmidt.com/DevTip.asp - Classic ASP Design Tips