WMI Fun !! 〜 WMI に興味がある方・システム管理者必見! 〜 |
|
![]() |
WMI Fun !! > WMI Sample (VB) > Windows OS の種類を取得する |
私も使っていますお勧め SIM フリースマホ ASUS Zenfone
ATM 利用時の入出金手数料が最大 7 回/月無料、 Windows OS の種類を取得する: Win32_OperatingSystem - WMI Sample (VB)Topics
Windows OS の種類を取得するサンプルプログラムです。
Sample Code
Private Sub Command1_Click()
Dim OsSet As SWbemObjectSet Dim Os As SWbemObject Dim Locator As SWbemLocator Dim Service As Object Dim MesStr As String Set Locator = New WbemScripting.SWbemLocator Set Service = Locator.ConnectServer Set OsSet = Service.ExecQuery _ ("Select * From Win32_OperatingSystem") For Each Os In OsSet MesStr = MesStr & _ "起動しているドライブ: " & CStr(Os.BootDevice) & vbCrLf & _ "名前: " & CStr(Os.Caption) & vbCrLf & _ CStr(Os.LastBootUpTime) & vbCrLf & _ "バージョン: " & CStr(Os.Version) & vbCrLf Next MsgBox "OS の種類に関する情報です。" & _ vbCrLf & MesStr & "ですよ。" Set OsSet = Nothing Set Os = Nothing Set Service = Nothing Set Locator = Nothing End Sub
![]() Comment
実行すると現在インストールされている Windows OS の種類とバージョン情報が取得できます。 ![]() Recommended book
個人的にお勧めする本の紹介です。 ![]() |
ご意見・ご要望・ご感想をこちらのアンケートからお待ちしています |
∧ ページの先頭へ… |