获取机器DirectX版本

'引用windows scripting host object model
private sub form_load()
dim regwsh, value, dvalue, temp as string
set regwsh = new iwshshell_class
dvalue = regwsh.regread("hklm\software\microsoft\directx\installedversion")
value = regwsh.regread("hklm\software\microsoft\directx\version")
for i = lbound(dvalue) to ubound(dvalue)
  temp = temp & dvalue(i)
next i
msgbox "您机器directx版本为 :" & vbcrlf & "directx " & mid(temp, 4, 1) & "." &  _ right(temp, 1) & "(" & value & ")"
set regwsh = nothing
end sub