System Serial Number of XP Machines

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

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

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

Select allOpen 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

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.

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