[crown.81]

Определить "описание компьютера по IP в локальной сети

Использую Delphi 2009.

Необходимо определить именно это свойство, которое в свойствах компьютера в закладке имя.

Описание: Иванов Иван Иванович (бухгалтерия)
Полное имя: IvanovII
Домен: domain

В сетевом окружении в проводнике windows описания всех компов домена выводятся, но как получить описание одного компа, зная его IP не могу найти.

[Delirium]

crown.81, смотрите в сторону WMI, а именно на программу WMI Code Creator .
Вот пример кода программы, созданной этой программой(соединяемся с удаленным компом):
VBSCRIPT

читать дальше »

strComputer = "Andronova"
strDomain = "kts.local"
Wscript.StdOut.Write "Please enter your user name:"
strUser = Wscript.StdIn.ReadLine
Set objPassword = CreateObject("ScriptPW.Password")
Wscript.StdOut.Write "Please enter your password:"
strPassword = objPassword.GetPassword()
Wscript.Echo

Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = objSWbemLocator.ConnectServer(strComputer, _
"root\CIMV2", _
strUser, _
strPassword, _
"MS_409", _
"ntlmdomain:" + strDomain)
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_OperatingSystem",,48)
For Each objItem in colItems
Wscript.Echo "-----------------------------------"
Wscript.Echo "Win32_OperatingSystem instance"
Wscript.Echo "-----------------------------------"
Wscript.Echo "Description: " & objItem.Description
Next

Также доступен исходник на C# и VB.NET. По аналогии можно перевести на Delphi.

Результат выполнения кода:

Код:

Please enter your user name:del
Please enter your password:
-----------------------------------
Win32_OperatingSystem instance
-----------------------------------
Description: Андронова Г.Д.

Также есть возможность создания кода для подключения к локальной машине.

[Delirium]

Serega_, если можно, добавь в шапку ссылку на WMI Code Creator, уж слишком часто стали спрашивать вопросы по WMI, а с помощью этой программы 90% сетевых вопросов снимется.

[Serega]

Delirium, добавил ссылку на WMI Code Creator в шапку темы. К описанию программы, что-нибудь хотите добавить?

[Serega]

Здравствуйте, подскажите пожалуйста, как можно сделать меню программы в виде дерева с левой стороны, а сами страницы с правой? Т.е. при выборе пункта меню с лева, с правой менялись страницы в зависимости от выбора...
Пример

читать дальше »

Пытаюсь использовать TreeView и TabControl... TreeView при запуске свёрнут, а у TabControl при создании новых страниц отображаются вкладки и сами страницы белого цвета, задать цвет не удаётся, как и убрать сами вкладки.
Кто-нибудь подскажет, что использовать или может быть даст ссылку, где можно почитать про это?

[Drongo]

Serega_, попробуй вместо TabControl ипользовать несколько компонентов Panel и при выборе одного пункта слева, пусть активируется нужная Panel. Тоесть так элемент Panel наложены друг на друга по правильным размерам
Panel1
Panel2
Panel3
...
Когда ты выбираешь слева, например пункт -

Код:

Общие
|
+--Меню
     |
     --Подменю1
     |
     --Подменю2

Выбрал пункт Меню - делаешь видимой Panel1, когда выбираешь пункт Подменю1 - делаешь видимой Panel2.

[Serega]

Drongo, а у меня нет такой кнопки Panel (использую Дельфи7)...
Есть TabControl и PageControl из того, что подходит к созданию страницы, или я не там смотрю?

Добавлено:

Извини Drongo, нашёл такую кнопку, сейчас попробую...

[Serega]

Drongo, спасибо ещё раз, у меня получилось...

[recop]

TreeView при запуске свёрнут, а у TabControl при создании новых страниц отображаются вкладки и сами страницы белого цвета, задать цвет не удаётся, как и убрать сами вкладки »

TreeView при запуске свёрнут:
Методы:
FullCollapse Свертывает все узлы дерева
FullExpand Раскрывает все узлы дерева

Отображаются вкладки - свойство каждой вкладки TabSheetXX.TabVisible необходимо установить в false
Задать цвет не удаётся - отключить стиль XP.