WMI Fun !! 〜 WMI に興味がある方・システム管理者必見! 〜 |
|
![]() |
WMI Fun !! > WMI Sample (VB) > 共有フォルダのセッションを取得する |
共有フォルダのセッションを取得する: Win32_ServerConnection - WMI Sample (VB)Topics
共有フォルダのセッションを取得するサンプルプログラムです。
Sample Code
Private Sub Command1_Click()
Dim ScnSet As SWbemObjectSet Dim Scn As SWbemObject Dim Locator As SWbemLocator Dim Service As SWbemServices Dim MesStr As String Set Locator = New WbemScripting.SWbemLocator Set Service = Locator.ConnectServer Set ScnSet = Service.ExecQuery("Select * From Win32_ServerConnection") For Each Scn In ScnSet MesStr = MesStr & "ユーザ名: " & Scn.UserName & vbCrLf & _ "コンピュータ名: " & Scn.ComputerName & vbCrLf & _ "共有フォルダ名: " & Scn.ShareName & vbCrLf & vbCrLf Next MsgBox "共有フォルダのセッション一覧です。" & vbCrLf & vbCrLf & _ MesStr & "ですよ。" Set ScnSet = Nothing Set Scn = Nothing Set Service = Nothing Set Locator = Nothing End Sub
![]() Comment
実行すると現在共有フォルダにアクセスしてきているユーザー名とコンピュータ名を表示します。
![]() Recommended book
個人的にお勧めする本の紹介です。 ![]() |
ご意見・ご要望・ご感想をこちらのアンケートからお待ちしています |
∧ ページの先頭へ… |