WMI Fun !! 〜 WMI に興味がある方・システム管理者必見! 〜 |
|
![]() |
WMI Fun !! > WMI Sample (VB) > 資産情報を取得する |
Panasonic Let'snote を長年愛用しています、その理由は My Let'snote で…
中古車買うならやっぱり IT 関連情報を気軽に知りたい方へ、 資産情報を取得する: Win32_SystemEnclosure - WMI Sample (VB)Topics
資産情報を取得するサンプルプログラムです。
Sample Code
Private Sub Command1_Click()
Dim SeSet As SWbemObjectSet Dim Se As SWbemObject Dim Locator As SWbemLocator Dim Service As SWbemServices Dim MesStr As String Set Locator = New WbemScripting.SWbemLocator Set Service = Locator.ConnectServer Set SeSet = Service.ExecQuery("Select * From Win32_SystemEnclosure") For Each Se In SeSet MesStr = "アセットタグ: " & Se.SMBIOSAssetTag & vbCrLf & _ "シリアルナンバー: " & Se.SerialNumber & vbCrLf & _ "パーツナンバー: " & Se.PartNumber & vbCrLf Next MsgBox "資産に関する情報です。" & vbCrLf & _ vbCrLf & MesStr & vbCrLf & "ですよ。" Set SeSet = Nothing Set Se = Nothing Set Service = Nothing Set Locator = Nothing End Sub
![]() Comment
実行すると資産管理に使用できそうな情報アセットタグ、シリアルナンバー、パーツナンバーが取得出来ます。ただこれらはマシンによっては取得出来ないのも多いかもしれません。(私の持っている Panasonic CF-B5ER では無理でした。) ![]() Recommended book
個人的にお勧めする本の紹介です。 ![]() |
ご意見・ご要望・ご感想をこちらのアンケートからお待ちしています |
∧ ページの先頭へ… |