We help IT Professionals succeed at work.

System Serial Number of XP Machines

lukefuno
lukefuno asked
on
673 Views
Last Modified: 2012-08-13
I would like to find System Serial Numbers of networked XP Machines. Is there a way to do this from one computer on network with software?

Thnx,
Comment
Watch Question

Rajith EnchiparambilOffice 365 & Exchange Architect

Commented:
If it is an HP machine, you could use Systems Insight Manager which will pull out the serial number.

Commented:
Possible with most of the network audit software.
Try AIDA32 - a freeware application

Author

Commented:
its a mixed bag of computers -- some Dell, some Asus, some no name, (no HP machines though)
Top Expert 2008

Commented:
hi,

no need to do either you can use standard script for this,
check this link to a copy to yoru question

https://www.experts-exchange.com/Programming/Languages/Scripting/Q_23498871.html
Top Expert 2008

Commented:
you jist need to create a text file of all machines on your domain, create this by exporting the computers OU in your AD stricture

Author

Commented:
ok i have the txt file with all pc names, how to incorporate that in with vbs script?
Top Expert 2008

Commented:
Apologies out teh office now an don slow connection i will post update tomorrow morning when back in the office
Top Expert 2008

Commented:
Apologies out teh office now an don slow connection i will post update tomorrow morning when back in the office
Top Expert 2009

Commented:
Save the code as .vbs file.
ComputerName = InputBox("Please enter the computer name - ", "Get serial number")
objWMIService = "winmgmts:{impersonationLevel=impersonate}!//" & ComputerName & ""
 
Set colComp = GetObject(objWMIService).InstancesOf("Win32_ComputerSystem")
 
For Each objComp In colComp
    Manufacturer = Trim(objComp.Manufacturer)
    Model = Trim(objComp.Model)
Next
 
Set SNSet = GetObject(objWMIService).InstancesOf("Win32_BIOS")
 
For Each SN In SNSet
    SerialNum = SN.SerialNumber
Next
 
wscript.echo "Manufacturer: " + Manufacturer
wscript.echo "Model: " + Model
wscript.echo "Serial Number: " + SerialNum

Open in new window

Top Expert 2008

Commented:
hi the script above works fine if you want to do each machine individually, my script to follow will use teh text file of all your computers to pull all serial numbers
Top Expert 2008
Commented:
This one is on us!
(Get your first solution completely free - no credit card required)
UNLOCK SOLUTION

Author

Commented:
thnx Slam69 let me try your script too.
Top Expert 2008

Commented:
cool ill be out the office in a couple of hours for th eweekend so ill check back in monday if i dont hear from you by then

Author

Commented:
i will place your script in c:\serials\serials.vbs

did i do my editing correct? see below.

Set objFile = objFSO.OpenTextFile("c:\serials\names.txt", ForReading)
Set f2 = fso.CreateTextFile("c:\serials\serials.txt", True)
Set f3 = fso.CreateTextFile("c:\serials\errors.txt", True)
Top Expert 2008

Commented:
looks good to me bud

Author

Commented:
when i run script though it says this,
Untitled-picture.png
Top Expert 2008

Commented:
arghh yup its been a while since i did a script like this, its teh set function within that line, im trying to set a variable but nothing is returned so shoudlnt use set.

im running out of time to get this sorted now as i leave the office in 20 but i can sort this over the weekend and post back asap, just needs tweaking a little bit, sorry for delay!!

Author

Commented:
ok sounds good.
Top Expert 2009
Commented:
This one is on us!
(Get your first solution completely free - no credit card required)
UNLOCK SOLUTION
Top Expert 2008

Commented:
Ill sort script over weekend but in teh meantime, this sound slike pretty hot software tool

http://www.lockergnome.com/it/2004/10/13/hard-and-soft-asset-management-with-vbscript/
Top Expert 2008

Commented:
haha im an idiot arent i, cheers for spotting that saves me a job over the weekend!!


just ran a quick test and that works fine from here
Jay

Author

Commented:
When i run from command line this is what i get. what do i need to change? or do i need to place file on different pc?

C:\serials>runserials.vbs
LKTXTR0
To Be Filled By O.E.M.
C:\serials\runserials.vbs(24, 9) Microsoft VBScript runtime error: The remote se
rver machine does not exist or is unavailable: 'GetObject'
Top Expert 2009

Commented:
A computer is offline or you don't have rights to connect to the next computer. Looks like you got 1 computer.  Try removing the second computer from your list.

Author

Commented:
ok and the computer names can be separated by commas or doesnt matter? thnx
Top Expert 2009

Commented:
Hmmm.  Looking at the code it's using readline.  So each computer name should be on it's own line.

Top Expert 2008

Commented:
just a name per line is fine no seperator required it parses line by line
Just as an alternative to the comments above - if you are wanting to do this as part of an asset management excercise, I recommend GLPI

http://glpi-project.org/?lang=en

It's an open source asset management tool that logs loads of information about any workstations that you have....

P
Unlock the solution to this question.
Join our community and discover your potential

Experts Exchange is the only place where you can interact directly with leading experts in the technology field. Become a member today and access the collective knowledge of thousands of technology experts.

*This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

OR

Please enter a first name

Please enter a last name

8+ characters (letters, numbers, and a symbol)

By clicking, you agree to the Terms of Use and Privacy Policy.