Hi,
I know this is pretty old, but just in case someone needs it:
Dim env
Dim strCPUName
strNewName = "wrongname"
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & "." & "\root\cimv2")
Set colSMBIOS = objWMIService.ExecQuery ("Select SerialNumber from Win32_SystemEnclosure")
For Each objSMBIOS in colSMBIOS
strNewName = objSMBIOS.SerialNumber
Next
Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration WHERE IPENABLED = 'True'")
For Each objItem in colItems
strMAC = Replace(ObjItem.MACAddress, ":","")
strCPUName = "V" & Right(strMAC,7)
If Len(strCPUName) > 1 Then
Exit For
End If
Next
Set env = CreateObject("Microsoft.SMS.TSEnvironment")
env("COMPUTERNAME") = strCPUName
after this you'll need to set a Task Sequence variable OSDCOMPUTERNAME to %COMPUTERNAME%
thats it.