Je probleem is:
Uw HDD werkt in Multiword DMA mode 2 (16.7 MB/s), terwijl zijn optimale mode is Ultra DMA mode 5 (100 MB/s)
Daarnaast zit er natuurlijk verschil tussen je ATA en je SATA schijf qua snelheid
maar om je ATA weer op snelheid te brengen:
- open apparaatbeheer en zoek naar het apparaat "Primaire IDE-kanaal" deze staat onder "IDE ATA/ATAPI Controllers"
- Rechter muisknop, eigenschappen
- ga naar tabblad "Geavanceerde Instellingen"
- Controlleer voor beide apparaten dat de Overdrachtsmodus op "DMA indien beschikbaar" staat
- Controleer de Huidige overdrachts modus
- Doe dit ook voor de "Secundaire IDE-Kanaal
Staat daar Ultra DMA Mode 5 dan is er niets mis
Staat daar "Niet beschikbaar" dan is er niets mis (is er geen apparaat aan gekoppeld)
Staat daar PIO voer oplossing onderaan deze post uit
Staat daar Ultra DMA Mode 2 en is het apparaat GEEN CDROM of DVD ROM speler: voer onderstaande oplossing uit
onderstaande code in een text bestand plakken en dan opslaan als resetdma.vbs.
Zodra je dat hebt gedaan 1x dubbelklikken op dat bestand en je zou de melding moeten krijgen dat alles gereset is
Als er staat "Niet beschikbaar" maak je geen gebruik van Parallel ATA schijven
Code:
' Visual Basic Script program to reset the DMA status of all ATA drives
' Copyright © 2006 Hans-Georg Michna
' Version 2007-01-29
' Works in Windows XP, probably also in Windows 2000 and NT.
' Does no harm if Windows version is incompatible.
If MsgBox("This program will now reset the DMA status of all ATA drives with Windows drivers." _
& vbNewline & "Windows will redetect the status after the next reboot, therefore this procedure" _
& vbNewline & "should be harmless.", _
vbOkCancel, "Program start message") _
= vbOk Then
RegPath = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Class\{4D36E96A-E325-11CE-BFC1-08002BE10318}\"
ValueName1Master = "MasterIdDataChecksum"
ValueName1Slave = "SlaveIdDataChecksum"
ValueName2Master = "UserMasterDeviceTimingModeAllowed"
ValueName2Slave = "UserSlaveDeviceTimingModeAllowed"
ValueName3 = "ResetErrorCountersOnSuccess"
MessageText = "The following ATA channels have been reset:"
MessageTextLen0 = Len(MessageText)
ConsecutiveMisses = 0
Set WshShell = WScript.CreateObject("WScript.Shell")
For i = 0 to 999
RegSubPath = Right("000" & i, 4) & "\"
' Master
Err.Clear
On Error Resume Next
WshShell.RegRead RegPath & RegSubPath & ValueName1Master
errMaster = Err.Number
Err.Clear
WshShell.RegRead RegPath & RegSubPath & ValueName2Master
errMaster = errMaster + Err.Number
On Error Goto 0
If errMaster = 0 Then
On Error Resume Next
WshShell.RegDelete RegPath & RegSubPath & ValueName1Master
WshShell.RegDelete RegPath & RegSubPath & ValueName2Master
On Error Goto 0
MessageText = MessageText & vbNewLine & "Master"
End If
' Slave
Err.Clear
On Error Resume Next
WshShell.RegRead RegPath & RegSubPath & ValueName1Slave
errSlave = Err.Number
WshShell.RegRead RegPath & RegSubPath & ValueName2Slave
errSlave = errSlave + Err.Number
On Error Goto 0
If errSlave = 0 Then
On Error Resume Next
WshShell.RegDelete RegPath & RegSubPath & ValueName1Slave
WshShell.RegDelete RegPath & RegSubPath & ValueName2Slave
On Error Goto 0
If errMaster = 0 Then
MessageText = MessageText & " and "
Else
MessageText = MessageText & vbNewLine
End If
MessageText = MessageText & "Slave"
End If
If errMaster = 0 Or errSlave = 0 Then
On Error Resume Next
WshShell.RegWrite RegPath & RegSubPath & ValueName3, 1, "REG_DWORD"
On Error Goto 0
ChannelName = "unnamed channel " & Left(RegSubPath, 4)
On Error Resume Next
ChannelName = WshShell.RegRead(RegPath & RegSubPath & "DriverDesc")
On Error Goto 0
MessageText = MessageText & " of " & ChannelName & ";"
ConsecutiveMisses = 0
Else
ConsecutiveMisses = ConsecutiveMisses + 1
If ConsecutiveMisses >= 32 Then Exit For ' Don't search unnecessarily long.
End If
Next ' i
If Len(MessageText) <= MessageTextLen0 Then
MessageText = "No resettable ATA channels with Windows drivers found. Nothing changed."
Else
MessageText = MessageText & vbNewline _
& "Please reboot now to reset and redetect the DMA status."
End If
MsgBox MessageText, vbOkOnly, "Program finished normally"
End If ' MsgBox(...) = vbOk
' End of Visual Basic Script program
