Nadya:

You missed the last \ComputerName
("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName")


>Hi everybody,
>
>Dim objWSHShell
>Set objWSHShell = Server.CreateObject("WScript.Shell")
>ReadComputerName = objWSHShell.RegRead ("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName")
>
>Thanks in advance.