Hi everybody,

Dim objWSHShell
Set objWSHShell = Server.CreateObject("WScript.Shell")
ReadComputerName = objWSHShell.RegRead ("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName")

Thanks in advance.