WMI Fun !! 〜 WMI に興味がある方・システム管理者必見! 〜 |
|
![]() |
WMI Fun !! > WMI Sample (VB) > システムスロットに関する情報を取得する |
ATM 利用時の入出金手数料が最大 7 回/月無料、 WMI スクリプトの実行結果を VBS を利用してメールで送信する方法を公開しています システムスロットに関する情報を取得する: Win32_SystemSlot - WMI Sample (VB)Topics
システムスロットに関する情報を取得するサンプルプログラムです。
Sample Code
Private Sub Command1_Click()
Dim SysSet As SWbemObjectSet Dim Sys As SWbemObject Dim Locator As SWbemLocator Dim Service As SWbemServices Dim MesStr As String Set Locator = New WbemScripting.SWbemLocator Set Service = Locator.ConnectServer Set SysSet = Service.ExecQuery("Select * From Win32_SystemSlot") For Each Sys In SysSet MesStr = MesStr & "名前: " & Sys.Name & vbCrLf & _ "番号: " & Sys.Number & vbCrLf & _ "スロット名称: " & Sys.SlotDesignation & vbCrLf Next MsgBox "システムスロットに関する情報です。" & vbCrLf & vbCrLf & MesStr Set SysSet = Nothing Set Sys = Nothing Set Locator = Nothing Set Service = Nothing End Sub
![]() Comment
実行するとコンピュータに存在するシステムスロットを列挙し一覧を表示します。
![]() Recommended book
個人的にお勧めする本の紹介です。 ![]() |
ご意見・ご要望・ご感想をこちらのアンケートからお待ちしています |
∧ ページの先頭へ… |