VBScript to query SN and Change Computer Name? (windows XP)

Can anyone point me to a VBScript that I could push out using a Symantec product that would:
1) Query the machine SN
2) Copy that result
3) Change Computer Name to the SN (non-domain pc’s on a workgroup)
4) Cleanup whatever is left behind.

I am not a scripter so thought i’d post the question here..