[[20090529144623]]　『ネットワーク上のマシン名取得』（とっつぃ）　ページの最後に飛ぶ

『ネットワーク上のマシン名取得』（とっつぃ）

 ネットワーク上のマシン名を取得したいのですが、ダイアログでマシン名を選択して
 名前を取得する事は可能ですか？
 または一覧が取得出来れば、ダイアログには出来ると思うのですが

 本格的にやるとなると、APIでグループ名を取得して・・・・となるんでしょうが、面倒です。

 標準モジュールに

 '===========================================================================
 Sub main()
    MsgBox get_folder_path("Select　Machine　Name", &H1000, 19)
 End Sub
 '============================================================================
 Function get_folder_path(Optional ByVal mes As String = "", _
                         Optional ByVal opt As Variant = 0, _
                         Optional ByVal 初期値 = 17) As Variant
    Dim fld  As Object
    Set fld = CreateObject("Shell.Application").BrowseForFolder(0, mes, opt, 初期値)
    On Error Resume Next
    If Not fld Is Nothing Then
       get_folder_path = fld.items.Item.Path
       If Err.Number <> 0 Then
          get_folder_path = False
          End If
    Else
       get_folder_path = False
       End If
 End Function

 mainを実行してください。　ダイアログが表示されます。グループ名をクリックすれば、マシン名の
 リストが表示されますから、ここで選択して下さい。
 マシン名を選択しなければ、ＯＫボタンが使用可能になりませんから、これで十分だと思いますが・・・。

 検討してみてください。

 ichinose

 ダイアログは表示しましたがマシンが選択出来ません。
 Windows XP Pro　Excel 2003です。
 Explorerから見える物は
 マイネットワークの中にネットワーク全体とその他諸々
 ですが、マクロで表示したダイアログの中は、
 マイネットワークと言う表示がnethoodに変わって（これで良いのかも知れませんが）
 その下にその他諸々と同じ物が見えます。
 ネットワーク全体だけ表示されていません。
 （とっつぃ）

 Sub main()
    MsgBox get_folder_path("Select　Machine　Name", &H1000, 18)
 End Sub

 これだとどうですか？

 ichinose

 取得出来ました　おっしゃるとおり希望していたものずばりです。
 たいへんありがとうございました。
 （とっつぃ）

コメント返信：

[ 一覧(最新更新順) ]

[[20090529144623]] 『ネットワーク上のマシン名取得』（とっつぃ） ページの最後に飛ぶ

[[20090529144623]]　『ネットワーク上のマシン名取得』（とっつぃ）　ページの最後に飛ぶ