Automatically Pull Old Computer Name with MDT Task Sequence

One of the biggest slowdowns when reimaging an entire lab of computers is the naming process in MDT. Of course, you could simply do a refresh deployment but often you just want to completely wipe everything on the machine and start fresh but also keep the same computer name.

This can easily be done using a UserExit.vbs script in just a couple steps.

  1. Open up your MDT deployment share and add the following two lines to the customsettings.ini:
  1. Create a file named UserExit.vbs in the Scripts folder of your MDT share with the following contents:
Function UserExit(sType, sWhen, sDetail, bSkip)
	oLogging.CreateEntry "entered UserExit ", LogTypeInfo
	UserExit = Success
End Function

Function GetOfflineComputername()
On Error Goto 0

	If oEnvironment.Item("OSVERSION")="WinPE" Then
		Dim CompName : CompName = ""
		Dim ret, sOldSystem : sOldSystem = ""
		For Each drv In Array("C", "D", "E", "F")
			If ofso.FileExists(drv & ":\windows\system32\config\system") Then
				sOldSystem = drv & ":\windows\system32\config\system"
				Exit For
			End If
		oLogging.CreateEntry "Mounting Offline registry " & sOldSystem, LogTypeInfo
		ret = oShell.Run ("reg load HKLM\z " & sOldSystem, 0, True)
		If ret = 0 Then
			CompName = oShell.RegRead("HKLM\z\ControlSet001\Services\Tcpip\Parameters\Hostname")
			If CompName <> "" Then
				oLogging.CreateEntry "Found old computername '" & CompName & "'", LogTypeInfo
				oLogging.CreateEntry "Old computername name could not be found", LogTypeWarning
			End If
			oLogging.CreateEntry "Could not mount offline registry " & sOldSystem, LogTypeWarning
		End If
		oShell.Run "REG UNLOAD HKLM\Z", 0, True		
		CompName = oShell.ExpandEnvironmentStrings("%Computername%")
	End If

	GetOfflineComputername = CStr(CompName)
End Function

Now when you start a task sequence and get prompted with the computer name, it will automatically use the name found in the current install of Windows.

Source: Technet Forums

Posted on
Tagged in windows , mdt
chris reinking

comments powered by Disqus