Simple script to rename :

Rename a Computer and Computer Account (VBScript)

more complicated one that queries the machine type ie laptop or desktop, then queries the bios for the serial number and then renames the computer

Dynamically Renaming a Computer with VBScript - Steve Thompson

I would test them on one machine ref renaming to ensure it is renaming the computer correctly etc and then go from there.