On Error Resume Next
Set env = CreateObject("Microsoft.SMS.TSEnvironment")

'Name got from database or MININT-% when unknown
CompNameOld = UCASE(env("_SMSTSMachineName"))

'Name that has already been given in some previous step, could be empty
CompNameDefault = UCASE(env("OSDComputerName"))

If CompNameDefault = "" Then CompNameDefault = CompNameOld

Do
	CompNameNew = UCASE(InputBox("Please check the computer name." & vbCRLF & "(Old computer name = "&CompNameOld&")" & vbCRLF & vbCRLF & "Please enter the new computer name:", "Computer Name", CompNameDefault, 50, 50))
Loop While Left(CompNameNew,6) = "MININT" Or CompNameNew = ""

env("OSDComputerName") = CompNameNew