Get Direct X version, & Get Cpu speed ?

[megahyperion 0]

Is it possible to get the computers current direct x version and the current cpu speed.

Also would it be possible to get the direct x version supported by the video card ?

i.e. direct x 7 on geforce 3

thanks in advance

[Westi 0]

Runwait("dxdiag.exe /t dx.tmp /whql:off" , @tempdir )
FileOpen ( $file, 0 )
If $file = -1 Then Exit

$cpu = FileReadLine ( $file , 11 );line to read the cpu info
$dxv = FileReadLine ( $file , 15 );line to read the DirectX info
$ddi = FileReadLine ( $file , 54 );line to read the DDI info
FileClose( $file )
;FileDelete ( $file )

MsgBox(0, "CPU", $cpu )
MsgBox(0, "DirectX-Version", $dxv )
MsgBox(0, "DDI-Version", $ddi )

Is this want u want?

[megahyperion 0]

I dunno

what should $file be ?

[Westi 0]

Sorry, i forget the vars:

Dim $file = @tempdir & "\dx.tmp", $cpu, $dxv, $ddi
Runwait("dxdiag.exe /t dx.tmp /whql:off" , @tempdir )
FileOpen ( $file, 0 )
If $file = -1 Then Exit

$cpu = FileReadLine ( $file , 11 );line to read the cpu info
$dxv = FileReadLine ( $file , 15 );line to read the DirectX info
$ddi = FileReadLine ( $file , 54 );line to read the DDI info
FileClose( $file )
;FileDelete ( $file )

MsgBox(0, "CPU", $cpu )
MsgBox(0, "DirectX-Version", $dxv )
MsgBox(0, "DDI-Version", $ddi )

Edited April 30, 2005 by Westi

[megahyperion 0]

Im getting an error on Fileclose

Saying Invalid file handle used.

[megahyperion 0]

Can you run me through what this line should be doing ?

("dxdiag.exe /t dx.tmp /whql:off" , @tempdir )

Maybe I can figure it out

[megahyperion 0]

Ok I got this to work

Runwait("dxdiag.exe /t dxtest.txt", @tempdir )
Dim $file = (@tempdir & "\dxtest.txt")
FileOpen ( $file, 0 )
If $file = -1 Then Exit

$cpu = FileReadLine ( $file , 11 );line to read the cpu info
$dxv = FileReadLine ( $file , 15 );line to read the DirectX info
$ddi = FileReadLine ( $file , 54 );line to read the DDI info

;FileDelete ( $file )

MsgBox(0, "CPU", $cpu )
MsgBox(0, "DirectX-Version", $dxv )
MsgBox(0, "DDI-Version", $ddi )

seems it didnt like the whql part

[Westi 0]

Ok, i wrote it very fast.

Here is a working script, sorry. :">

Dim $file = @tempdir & "\dx.tmp", $cpu, $dxv
SplashTextOn("DX-Diag", " Please wait while processing...", 280, 30, -1, -1, 4, "", 14)
Runwait("dxdiag.exe /t dx.tmp /whql:off" , @tempdir )
If FileExists ( $file ) then
FileOpen ( $file, 0 )
If $file = -1 Then Exit
$cpu = FileReadLine ( $file , 11 );line to read the cpu info
$dxv = FileReadLine ( $file , 15 );line to read the DirectX info
$ddi = FileReadLine ( $file , 54 );line to read the DDI info
;Check the right line in the dxd.tmp

FileClose( $file )
SplashOff()
MsgBox(0, "CPU", $cpu )
MsgBox(0, "DirectX-Version", $dxv )
MsgBox(0, "DDI-Version", $ddi )
MsgBox(0, "Whole textfile is in:", $file )
else
    MsgBox(4096,"Error", $file & " does not exist.")
EndIf

For more information about dxdiag, type "dxdiag /?" in a console window.

[megahyperion 0]

I found the problem, the whql needs to come before the file write

SO

Runwait("dxdiag.exe /whql:off /t dx.tmp" , @tempdir )

instead of

Runwait("dxdiag.exe /t dx.tmp /whql:off" , @tempdir )

Thanks for the help though, its apreciated and all working now