[コンピュータの検索を開く]

『コンピュータの検索』画面を開きます。

【ソースコード】
[tips0128.vbs]
Option Explicit
On Error Resume Next

Dim objShell        ' Shell オブジェクト

Set objShell = WScript.CreateObject("Shell.Application")
If Err.Number = 0 Then
    objShell.FindComputer
Else
    WScript.Echo "エラー: " & Err.Description
End If

Set objShell = Nothing