Хочу диалог выбора компьютера в локалке

[tyomitch]

Хочу такой же, как в mstsc.

SHBrowseForFolder с корнем в домене (в предположении, что я найду способ задать такой корень) будет показывать шары, хотя мне это совсем не нужно.

[Хакер]

tyomitch
Он там самоделный.

[tyomitch]

Я знаю.
Но всё равно продолжаю хотеть такой же.

[Andrey Fedorov]

Но всё равно продолжаю хотеть такой же.

А что нужно-то конкретно:

Список компьютеров:

Код: Выделить всё

strComputer = "."
Set objWMIService = GetObject("winmgmts:" & strComputer & "\root\directory\LDAP")
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM ads_computer",,48)
For Each objItem in colItems
    Wscript.Echo "DS_displayName: " & objItem.DS_displayName
Next

Или что-то еще?

[tyomitch]

Это чудо заработает в Win98/NT4? (Требования такие.)

[jangle]

На Win98 не заработает, там нет WMI. Теоретически можно найти дистриб WMI для 9x и поставить его вместе с программой. Но найти его будет трудно, я наример его ни разу не видел.

[Antonariy]

wmicore.exe

Сделать из аттача диалог проблем не составит. Под 98/NT по идее должно работать.

[tyomitch]

По ходу, BIF_BROWSEFORCOMPUTER не работает из-за идиотской описки в shell32, сделанной в Win2000 и до сих пор не исправленной. Эти мелкомягкие (эпитет опущен) не в том порядке передают аргументы в одном из мест.

Там в MS за семь лет никому не довелось потестить этот флаг?

Код: Выделить всё

HRESULT CSHBrowseForFolder::_ShouldShow(IShellFolder* psf, LPCITEMIDLIST pidlFolder, LPCITEMIDLIST pidlItem, BOOL fStrict)
{
    HRESULT hr = S_OK;
    BOOL fFilterChildern = FALSE;

    // Do we want to filter our all the children of a certain folder?
    if (_pidlChildFilter)
    {
        // Yes, let's see if the tree walking caller is still
        // in this folder?
        if (pidlFolder && ILIsParent(_pidlChildFilter, pidlFolder, FALSE))
        {
            // Yes, so don't use it.
            hr = S_FALSE;
        }


Код: Выделить всё

// test if
//      pidl1 is a parent of pidl2

BOOL ILIsParent(LPCITEMIDLIST pidl1, LPCITEMIDLIST pidl2, BOOL fImmediate)
{


[alibek]

Гайдару пиши
Он обещал, что будет доводить информацию о багах до MS.

Но помоему у меня функция с этим флагом работала.

[tyomitch]

Этот флаг работает, если не стоит BIF_NEWDIALOGSTYLE.
(Там внутри две непересекающиеся реализации SHBrowseForFolder. Одна старая и некрасивая, а вторая новая и бажная.)