[Dimakrat]

Как узнать имя компьютера в локальной сети я знаю, а вот как можно узнать его описание?

[lmikle]

сюда: http://www.tek-tips.com/viewthread.c...1210820&page=1

[Dimakrat]

не хочет ссылка открываться...

[lmikle]

не знаю, у меня открывается.
Решения оттуда (не дельфи, но портировать просто):

Код:

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)
For Each objItem in colItems
    Wscript.Echo "Description: " & objItem.Description
Next

Код:

Dim objShell
Set objShell = CreateObject("Wscript.Shell")
RegKey = "HKLM\System\currentControlSet\Services\lanmanserver\Parameters\"
PCDesc = objShell.RegRead(RegKey & "srvcomment")
Wscript.Echo PCDesc

Код:

On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem",,48)
For Each objItem in colItems
    Wscript.Echo "Description: " & objItem.Description
Next

[guranvir]

Фленова почитай о сетевом программировании