Link to home
Start Free TrialLog in
Avatar of lukefuno
lukefuno

asked on

System Serial Number of XP Machines

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,
Avatar of Rajith Enchiparambil
Rajith Enchiparambil
Flag of United Kingdom of Great Britain and Northern Ireland image

If it is an HP machine, you could use Systems Insight Manager which will pull out the serial number.
Possible with most of the network audit software.
Try AIDA32 - a freeware application
Avatar of lukefuno
lukefuno

ASKER

its a mixed bag of computers -- some Dell, some Asus, some no name, (no HP machines though)
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/questions/23498871/vbs-Script-to-get-server-serial-numbers-remotely.html
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
ok i have the txt file with all pc names, how to incorporate that in with vbs script?
Apologies out teh office now an don slow connection i will post update tomorrow morning when back in the office
Apologies out teh office now an don slow connection i will post update tomorrow morning when back in the office
Avatar of AmazingTech
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

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
ASKER CERTIFIED SOLUTION
Avatar of slam69
slam69
Flag of United Kingdom of Great Britain and Northern Ireland image

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
thnx Slam69 let me try your script too.
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
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)
looks good to me bud
when i run script though it says this,
Untitled-picture.png
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!!
ok sounds good.
SOLUTION
Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
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/
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
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'
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.
ok and the computer names can be separated by commas or doesnt matter? thnx
Hmmm.  Looking at the code it's using readline.  So each computer name should be on it's own line.

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