Collect Remote System Information

[Debbie Davis]

Greetings, I have been tasked with collecting the system information
from several workstations and dumping the data into a SQL database
using ASP. I have access to the servers but need to know how to
approach this. What I need is the information that comes from the
system info button in the help of many applications. Where does the
code come from for the system summary? Is this something I can
replicate in an intranet web? Many thanks for any ideas you have.

 

[Ray Costanzo [MVP]]

ASP would be a good mechanism for presenting the data, but not for
collecting it. As far as collection the data, there are complete software
packages such as Microsoft Systems Management Server, or you can just run
scripts under credentials that have the required permissions to query the
computers on your LAN.
http://groups.google.com/groups?q=system+inventory&meta=group=microsoft.public.*
for some ideas.

Ray at work

 

[Jeff Cochran]

Greetings, I have been tasked with collecting the system information
from several workstations and dumping the data into a SQL database
using ASP. I have access to the servers but need to know how to
approach this. What I need is the information that comes from the
system info button in the help of many applications. Where does the
code come from for the system summary? Is this something I can
replicate in an intranet web? Many thanks for any ideas you have.

ASP won't do this (it will present the informatioon from your database
but can't collect it).

But take a look at this as an example:

http://cwashington.netreach.net/depo/view.asp?Index=970&ScriptType=vbscript

Follow up in the VBScript group.

Jeff

 

[Debbie Davis]

Many thanks, Jeff. I'll let you know how it works out. I mainly needed
a means of collection so this helps.

 

[Debbie Davis]

Hi again Jeff, the link you suggested is almost exactly what I need.
I've done trial and error but not sure how to modify this to go into a
SQL database. Any thoughts? I keep getting stuck on error messages
regarding the lock type... Thanks for your input.

Also, by using my machine name, and trying to run the script and write
to the database from other machines, I get a "read only" error and it's
definitely not read only. Any thoughts about that? Thanks again.

Sub subConnectionOpen
Set objCon = CreateObject("ADODB.Connection")
Set objRS = CreateObject("ADODB.Recordset")
sProviderName = "Microsoft.Jet.OLEDB.4.0"
iCursorType = 1
iLockType = 3
sDataSource = "\\IT-XP-0002\system_info\pcinfo.mdb"
objCon.Provider = sProviderName
objCon.Properties("Data Source") = sDataSource
objCon.Open
objRS.CursorType = iCursorType
objRS.LockType = iLockType
objRS.Source = "Computerinfo"
objRS.ActiveConnection = objCon
objRS.Open
End Sub

 

[Jeff Dillon]

I might recommend moving the Access database locally during initial
development. It can be tricky to open a remote Access database.

Jeff

 

[Debbie Davis]

Hi Jeff, what about dumping it into a SQL database? How would I modify
the data connection. I've tried a few things but can't quite get it.
Many thanks again.

Sub subConnectionOpen
Set objCon = CreateObject("ADODB.Connection")
Set objRS = CreateObject("ADODB.Recordset")
sProviderName = "Microsoft.Jet.OLEDB.4.0"
iCursorType = 1
iLockType = 3
sDataSource = "\\IT-XP-0002\system_info\pcinfo.mdb"
objCon.Provider = sProviderName
objCon.Properties("Data Source") = sDataSource
objCon.Open
objRS.CursorType = iCursorType
objRS.LockType = iLockType
objRS.Source = "Computerinfo"
objRS.ActiveConnection = objCon
objRS.Open
End Sub