не знаю, у меня открывается.
Решения оттуда (не дельфи, но портировать просто):
Код:
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