Detect serial number/servic tag
Hi folks! Does anyone here know how to have an image automatically detect serial number and also use that serial number to name the computer, instead of prompting the user for the computer name during mini setup?
0 Comments
[ + ] Show comments
Answers (1)
Please log in to answer
Posted by:
wildpitch
19 years ago
Old'ish post but anyway I'm new here......
very easy to do but your workstation BIOS has to support it and you may have to alter the way your minisetup runs. I've been doing this for 3 or so years now and it works sweetly on NT / 2000 / XP providing you have WMI and WSH installed.
For starters copy and paste the code below into a text file on your desktop, rename it to something.vbs and see if you get anything returned on execution. If you do there's a whole heap of instruction on the MS Technet site about renaming comps, joining them to domains etc etc via scripts.
very easy to do but your workstation BIOS has to support it and you may have to alter the way your minisetup runs. I've been doing this for 3 or so years now and it works sweetly on NT / 2000 / XP providing you have WMI and WSH installed.
For starters copy and paste the code below into a text file on your desktop, rename it to something.vbs and see if you get anything returned on execution. If you do there's a whole heap of instruction on the MS Technet site about renaming comps, joining them to domains etc etc via scripts.
On Error Resume Next
Dim strTag
DIm vbCRLF
strComputer = "."
vbCRLF = chr(13)
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_BIOS",,48)
For Each objItem in colItems
strTag = objItem.SerialNumber
Next
set oWSHShell = WScript.CreateObject("WScript.Shell")
msgbox strTag
Rating comments in this legacy AppDeploy message board thread won't reorder them,so that the conversation will remain readable.