Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")

inpName = inputbox("Please enter the 'Current Username':")

WSHShell.RegWrite "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\Current User", inpName, "REG_SZ"