external_computer_name.vbs

'''''''''''''''''''''''''''''
' Purpose: Allows you to enter the drive letter of an external drive with a copy of Windows on it, returns computer name
' Requirements: Windows 7 (may support older OSes), Administrator (maybe)
' Written by: Alex Yancey
' Date: December 8, 2016
'''''''''''''''''''''''''''''
const HKEY_LOCAL_MACHINE = &H80000002
set objshell = CreateObject("Wscript.shell")

computer_name = InputBox("OS drive letter: ", "HDD Computer Name")

' Load hive
objshell.Run "reg.exe load HKLM\tempdefault " & computer_name & ":\Windows\System32\config\SYSTEM", 0, True

' Get registry value for computer name
Set objReg = GetObject("winmgmts:" & _
"{impersonationLevel=Impersonate}!\\" & _
"." & "\root\default:StdRegProv")
objReg.GetStringValue HKEY_LOCAL_MACHINE,"tempdefault\ControlSet001\Control\ComputerName\ComputerName", "ComputerName", cname

' Output
MsgBox(cname)

' Unload hive
objshell.Run "reg.exe unload HKLM\tempdefault", 0, True