FC2ブログ

ぴーあーる

プロフィール

カテゴリー

リンク

最近の記事

最近のコメント

最近のトラックバック

カレンダー

02 | 2008/03 | 04
- - - - - - 1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 29
30 31 - - - - -

過去のログ

Plug-in by
@激安・割安・おすすめ商品@

RSSフィード

箱男

 

 


スポンサーサイト



お風呂で

 

 


セクシーポーズ

ヨガの達人のセクシーポーズです。。。笑

 


VBで共有一覧を取得する

http://www.wmifun.net/sample/win32_share.html

共有の一覧を取得するサンプルです。Win32_Shareクラスを使用しています。

まず、VBの参照設定で「MicrosoftWMI Scripting V1.2 Library」にチェックをつけておきます。

以下がVBのソースです。

Private Sub Command_Click()

Dim ShSet AsSWbemObjectSet
Dim Sh As SWbemObject
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Dim MesStr As String

Set Locator =New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer

Set ShSet =Service.ExecQuery("Select * From Win32_Share")

For Each Sh InShSet

MesStr = MesStr+ "共有名:" + Sh.Name + vbCrLf + _
        "パス:" + Sh.Path +vbCrLf

Next

MsgBox "共有の一覧です。 " + _
           vbCrLf + vbCrLf + MesStr + vbCrLf + "ですよ。"

Set ShSet =Nothing
Set Sh = Nothing
Set Locator = Nothing
Set Service = Nothing

End Sub

 


 BLOG TOP