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..
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.
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.
04-11-200802:06 AM - last edited on 04-11-200806:16 AM by billbolton
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
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)
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 '
Message Edited by outouser on 04-11-200812: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-200812:15 PM
Message Edited by billbolton on 04-12-200812:16 AM