$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$strComputer = "localhost"
$Output=""
$val = ""
$Output = $Output & "Computer: " & $strComputer  & @CRLF
$Output = $Output & "==========================================" & @CRLF
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")

While 1
$WMIQuery  = $objWMIService.ExecQuery("SELECT * FROM Win32_PerfRawData_PerfDisk_PhysicalDisk", "WQL", _
                                          $wbemFlagReturnImmediately + $wbemFlagForwardOnly)


    For $obj In $WMIQuery
        ; следим за поява на четене от харда.
		; използвам четене, тъй като е най-правдоподобно
		; за генериране на рандоми.
		; Писането би било по-предвидимо явление.

        If  $obj.DiskReadsPersec > $val Then
            $val = $obj.DiskReadsPersec

		    ; викаме функцията за да отчетем времето в милисекунди
			; от началото на прекъсването на харда
            $begin = TimerInit()
        Else
			; при край на прекъсването, отчитаме колко време
			; е коствало
            $dif = TimerDiff($begin)
			; сийдваме PRG - то със стойността
			SRandom($dif)
			; генерираме 1 или 0 за сийда
			$r = Random(0, 1, 1)
			; пишем във файла
		    writeit($r)
        EndIf
    Next
    Sleep(150)
WEnd

Func writeit($r)
	$file = FileOpen("seed.txt", 1)
	FileWrite($file, $r)
	FileClose($file)
	EndFunc