'Reference Windows Scripting Host ObjectDim regwsh, Value, DValue, temp As StringSet regwsh = New IWshShell_ClassDValue = 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 Imsgbox" Your machine DirectX version is: "& VBCRLF &" DirectX "& MID (Temp, 4, 1) & "." & _Right (Temp, 1) & "(" & Value & ")" SET regWSH = Nothing
