■Topics

---

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

---

■Sample Code

---

Private Sub Command1_Click()

Dim ShSet As SWbemObjectSet
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 In ShSet

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

---

■Comment

---

実行すると現在の共有一覧が表示されます。
Win32_ShareクラスにはCreateメソッドやDeleteメソッドも用意されているので共有の作成・削除も出来そうです。
ただぱっと見たところあまり高度なことは出来なさそうかも。(アクセス権の設定が見当たらない・・・。ただ見逃しているだけかも。)

---