'------------------------------------------------------------
 '                        检测显卡信息
 '------------------------------------------------------------
   set videos= objWMIService.ExecQuery("Select * from Win32_VideoController",,48)
    n=1
    for each video in videos
      videoinfo= videoinfo & "显卡" & n & ":" & vbcrlf 
      videoinfo= videoinfo & "  类型:  " & trim(video.name) & vbcrlf 
      videoinfo= videoinfo & "  显存:  " & video.AdapterRAM/1024/1024 &"MB"&  vbcrlf 
      videoinfo= videoinfo & "  频率:  " & video.CurrentRefreshRate & "Hz" &  vbcrlf 
      videoinfo= videoinfo & "  DAC :  " & video.AdapterDACType & vbcrlf 
      n=n+1
    next
 '------------------------------------------------------------

应该还要引用一下那个吧

我不知道会出现这种情况噢，那下次还是用WMIC来做吧

n=1?
假如我装了2个显卡呢?

不好意思,是我老眼昏花~
无视我的5L

呵呵  现在确实有双显卡的机子 所以我加了一个计数的