Alterar o nome do computador via registro do Windows com direitos administrativos

// Summary: <specify the procedure action>
// Syntax:
//Api_RenameComputer (<Novo_Nome>)
//
// Parameters:
// Novo_Nome:
// Example:
// <Specify a usage example>
//
PROCEDURE Api_RenameComputer(Novo_Nome)

//COMPILAR COM DIREITOS ADMINISTRATIVOS MAXIMOS

OK1,OK2,OK3,OK4,OK5,OK6 is boolean

PC01,PC02,PC03,PC04,PC05,PC06 is string = ""

NovoNome is string = Novo_Nome

IF NovoNome = "" THEN
RETURN
ELSE

NovoNome = Upper( NoSpace( NoAccent(Novo_Nome) ) )

PATH01 is string = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName"
PATH02 is string = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\ActiveComputerName"
PATH03 is string = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\"
PATH04 is string = "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\Tcpip\Parameters"

PC01 = RegistryQueryValue(PATH01, "ComputerName", True)

PC02 = RegistryQueryValue(PATH02, "ComputerName", True)

PC03 = RegistryQueryValue(PATH03, "Hostname", True)

PC04 = RegistryQueryValue(PATH03, "NV Hostname", True)

PC05 = RegistryQueryValue(PATH04, "Hostname", True)

PC06 = RegistryQueryValue(PATH04, "NV Hostname", True)

IF RegistryExist(registryModeAuto,PATH01,"ComputerName") = True THEN
//Info(1)
END

IF RegistrySetValue(registryModeAuto,PATH01,"ComputerName",NovoNome,registryTypeString) = True THEN
OK1 = True
END

IF RegistrySetValue(registryModeAuto,PATH02,"ComputerName",NovoNome,registryTypeString) = True THEN
OK2 = True
END

IF RegistrySetValue(registryModeAuto,PATH03,"Hostname",NovoNome,registryTypeString) = True THEN
OK3 = True
END

IF RegistrySetValue(registryModeAuto,PATH03,"NV Hostname",NovoNome,registryTypeString) = True THEN
OK4 = True
END

IF RegistrySetValue(registryModeAuto,PATH04,"Hostname",NovoNome,registryTypeString) = True THEN
OK5 = True
END

IF RegistrySetValue(registryModeAuto,PATH04,"NV Hostname",NovoNome,registryTypeString) = True THEN
OK6 = True
END

// Info(PC01,PC02,PC03,PC04,PC05,PC06)
// Info(OK1,OK2,OK3,OK4,OK5,OK6,ErrorInfo())

END