Support in other languages: 
Reply
Paper Tape
qj007
Posts: 5
Registered: ‎01-11-2008
Location: UAE
0

Detect system model number and serial number

Hi All, Is there any way we can detect the IBM system's serial number and model number and display in on our intranet which is developed using PHP or export to a text file? this will help in maintaining the inventory of many pc's. any help will be appreciated..
Blue Screen Again
RealBlackStuff
Posts: 522
Registered: ‎11-24-2007
Location: Mt. Cobb, PA USA
0

Re: Detect system model number and serial number

You need to write a program that can read out the BIOS, where this info is stored.
Then run this on each PC/laptop, and collect it's data into a central database.
There is a Hardware Maintenance Disk post here which can read this BIOS (and modify it as well) data.
Up to you to 'catch' this info for your database.
Paper Tape
qj007
Posts: 5
Registered: ‎01-11-2008
Location: UAE
0

Re: Detect system model number and serial number

Hi RealStuff, Thanks for your reply but to make my question more clear, I have many users and in order to maintain the PC inventory, I need a script or application which should display the model/serial number of the PC where the webpage is displayed, its similar to what you see on IBM's website, [Detect my system] see this link  http://www-307.ibm.com/pc/support/site.wss/document.do?lndocid=SITE-WARNTY&sitestyle=lenovo
Blue Screen Again
RealBlackStuff
Posts: 522
Registered: ‎11-24-2007
Location: Mt. Cobb, PA USA
0

Re: Detect system model number and serial number

See my answer in your other post.
It would be best to keep these related questions in ONE post.
Paper Tape
qj007
Posts: 5
Registered: ‎01-11-2008
Location: UAE
0

Re: Detect system model number and serial number

Thanks thats a good application to maintain a complete inventory for the network, but for me again what I am looking for is only to detect model/serial number and check for warrenty status? when a webpage is displayed.
Blue Screen Again
RealBlackStuff
Posts: 522
Registered: ‎11-24-2007
Location: Mt. Cobb, PA USA
0

Re: Detect system model number and serial number

You'll have to find a programmer to write such an application. The software mentioned can apparently 'scan' all systems on your network, but it needs additional programming to supply the warranty info (see also next paragraph).
Contact that (or a similar) company and check if they have such an interface.
 
Lenovo has a multiple-machine warranty lookup facility.
But at one time or another you will have to create a list of your inventory, which you can then 'feed' into that lookup.
Perhaps the asset list as established by one of the ITAM programs?
 
Hope this helps.
Guru
outouser
Posts: 313
Registered: ‎02-19-2008
Location: Finland
0

Re: Detect system model number and serial number

[ Edited ]
Hi, you can use this VBS script to get Computer model,serial,logged user.
Add this to logon script when user logs to domain it will scan computer and send data to file. File name will be "computer serial".txt
I have bolded text what you have to modify to work on your network.
You have to save this file to .VBS extension. Example to make this is to open notepad copy/paste text and save. Then change extension to .VBS.

On Error Resume Next

Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20

arrComputers = Array("localhost")
For Each strComputer In arrComputers

   Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
   Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystemProduct", "WQL", _
                                          wbemFlagReturnImmediately + wbemFlagForwardOnly)

   For Each objItem In colItems
     
   ' write data to text file '
   Dim fso, tf
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set tf = fso.CreateTextFile ("ENTER SERVER SHARE WHERE USER HAS ACCESS TO WRITE example \\server\logs\" & objItem.IdentifyingNumber & ".txt", True)
   tf.Write "Serial: " & objItem.IdentifyingNumber
   tf.WriteBlankLines(1)
   tf.Write "Model: " & objItem.Name
   tf.WriteBlankLines(2)  
   tf.Write "Vendor: " & objItem.Vendor
   tf.WriteBlankLines(1)   
   tf.Write "Version: " & objItem.Version
   tf.WriteBlankLines(2)

   Next

   Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
   Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem", "WQL", _
                                          wbemFlagReturnImmediately + wbemFlagForwardOnly)

   For Each objItem In colItems
   tf.Write "Username: " & objItem.UserName
   tf.WriteBlankLines(1)
   tf.Write "Hostname: " & objItem.Name
   tf.WriteBlankLines(1)
   tf.Write "Domain: " & objItem.Domain
   tf.WriteBlankLines(1)
   tf.Close
   ' write data to text file, end '

   Next
Next




Message Edited by outouser on 04-11-2008 12:10 PM

Message to moderators please disable smileys on my post. My code wont show correctly. I cannot see any option to disable it by myself.


Message Edited by outouser on 04-11-2008 12:15 PM

Message Edited by billbolton on 04-12-2008 12:16 AM
Blue Screen Again
ppucci
Posts: 1
Registered: ‎04-30-2013
Location: Brazil
0

Re: Detect system model number and serial number

You can try the following Windows command from the Command Prompt

 

wmic bios get serialnumber