Compartilhar via


Método Shell.FindComputer

Exibe a caixa de diálogo Resultados da Pesquisa: Computadores . A caixa de diálogo mostra o resultado da pesquisa de um computador especificado.

Sintaxe

Shell.FindComputer()

Shell.FindComputer()

Parâmetros

Esse método não tem parâmetros.

Valor retornado

JScript

Esse método não retorna um valor.

VB

Esse método não retorna um valor.

Exemplos

O exemplo a seguir mostra FindComputer em uso. O resultado desse código é o mesmo que pressionar o botão Iniciar , clicar em Pesquisar, clicar na opção Impressoras, computadores ou pessoas e clicar em Um computador na rede. O uso adequado é mostrado para JScript, VBScript e Visual Basic.

Jscript:

<script language="JScript">
    function fnShellFindComputerJ()
    {
        var objShell = new ActiveXObject("shell.application");
        
        objShell.FindComputer();
    }
</script>

Vbscript:

<script language="VBScript">
    function fnShellFindComputerVB()
        dim objShell
        dim ssfWINDOWS
        ssfWINDOWS = 36

        set objShell = CreateObject("shell.application")
        objShell.FindComputer

        set objShell = nothing
    end function
 </script>

Visual Basic:

Private Sub fnShellFindComputerVB()
    Dim objShell As Shell

    Set objShell = New Shell
    objShell.FindComputer

    Set objShell = Nothing
End Sub

Requisitos

Requisito Valor
Cliente mínimo com suporte
Windows 2000 Professional, Windows XP [somente aplicativos da área de trabalho]
Servidor mínimo com suporte
Windows 2000 Server [somente aplicativos da área de trabalho]
Cabeçalho
Shldisp.h
IDL
Shldisp.idl
DLL
Shell32.dll (versão 4.71 ou posterior)