■No41185 (hs さん) に返信
> 結局ネットワーク上の全PC名を取得する方法がわからないまま終わらせいてしまいました。
API を使わない列挙方法を示しておきます。
'Imports System.DirectoryServices
Dim computers() As String
Dim domain As String = ワークグループまたはドメイン名
Using d As New DirectoryEntry("WinNT://" & domain)
computers = (From c As DirectoryEntry In d.Children _
Where c.SchemaClassName = "Computer" _
Select c.Name).ToArray()
End Using
> Visual Basic6.0(SP3) が対象という事で、VB2008にコピペしましたが、文法が違い
そのままコピペするのではなく、[ツール]メニューの
[Visual Basic 6 コードのアップグレード]を使ってみてください。
# もっとも、これでアップグレードしたとしても、As Any 構文が原因で変換しきれないため
# VB6 の知識か API 自体への造詣が無いと、移植作業に若干苦労するかも知れませんが…。