09/09/22 21:39:05 XhYjg7Vb
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set MonSet = objWMIService.ExecQuery("Select * From Win32_DesktopMonitor Where Status='OK'")
For Each Mon In MonSet
If IsNumeric(Mon.ScreenWidth) Then
MesStr = MesStr & "モニタ名：" & Mon.Name & vbCrLf & _
"解像度：" & Mon.ScreenWidth & "x" & Mon.ScreenHeight & vbCrLf & vbCrLf
End if
Next
MsgBox MesStr
こんどは、どうだ＞＜