IEEE 1394 asynchronous requests are completed, but they have incorrect data or status under high transfer rates in Windows 7 or in Windows Server 2008 R2

'-------------- begin script -------------- 
On Error Resume Next

' Check the version number of the file against our reference
Function CheckVersion(sVerString)
    If osMajorVer = 6 Then
        If osMinorVer = 1 Then
            If spMajorVer >= 1 Then
               aMinVersion = Array(6, 1, 7601, 17062)
            Else
               aMinVersion = Array(6, 1, 7600, 20756)
            End If
        Else
            CheckVersion = false
            Exit Function
        End If
    Else
        CheckVersion = false
        Exit Function
    End If

    If IsNull(sVerString) Or IsEmpty(sVerString) Then
        CheckVersion = false
        Exit Function
    End If

    ' Split input on . and make sure there are 4 elements
    aVersion = Split(sVerString, ".")
    If UBound(aVersion) <> 3 Then
        CheckVersion = false
        Exit Function
    End If

    ' Check each element against the reference version number
    For i = 0 to 3
        If Int(aVersion(i)) < aMinVersion(i) Then
            CheckVersion = false
            Exit Function
        ElseIf Int(aVersion(i)) > aMinVersion(i) Then
            CheckVersion = true
            Exit Function
        End If
    Next

    ' If we get here then the version numbers are equal. Return true.
    CheckVersion = true
    Exit Function
End Function

' Get the WMI CIMv2 provider
Set oLoc = CreateObject("WbemScripting.SWbemLocator")
Set oCIMSvc = oLoc.ConnectServer("", "root\CIMV2")

' Get the WshShell object (for RegRead and RegWrite)
Set WshShell = CreateObject("WScript.Shell")

' On Vista and higher, handle UAC
Set oOSInfo = oCIMSvc.InstancesOf("Win32_OperatingSystem")
For Each os in oOSInfo
    osMajorVer = Int(Left(os.Version, 1))
    osMinorVer = Int(Mid(os.Version, 3, 1))
    spMajorVer = os.ServicePackMajorVersion
    If osMajorVer >= 6 And WScript.Arguments.length = 0 Then
        ' Use ShellExecute with runas verb to prompt for elevation
        Set oShell = CreateObject("Shell.Application")
        oShell.ShellExecute "wscript.exe", """" & WScript.ScriptFullName & _
            """ uac", "", "runas", 1
        WScript.Quit(0)
    End If
    Exit For
Next

' Check to make sure that 1394ohci.sys is a minimum version that supports this
' flag
Const SYSTEM_FOLDER = 1
Set oFS = CreateObject("Scripting.FileSystemObject")
sFileVer = oFS.GetFileVersion(oFS.GetSpecialFolder(SYSTEM_FOLDER). _
    SubFolders("drivers").Files("1394ohci.sys").Path)
If Not CheckVersion(sFileVer) Then
    WScript.Echo("The version of 1394ohci.sys on your system does not support the EnabletLabelBitmap flag. " & _
        "No changes to your system have been made.")
    WScript.Quit(0)
End If

' Write the EnabletLabelBitmap value 1 (enabled) to the registry
sRegPath = "HKLM\SYSTEM\CurrentControlSet\Services\1394ohci\parameters\EnabletLabelBitmap"
WshShell.RegWrite sRegPath, 1, "REG_DWORD"

' Check if write was successful. If not, chances are UAC is enabled
' and this is a non-elevated command prompt
If Err.Number <> 0 Then
    WScript.Echo("Error writing EnabletLabelBitmap registry value. " & _
        "Make sure you are running from an elevated command prompt")
    WScript.Quit(-1)
End If

WScript.Echo("Finished setting EnabletLabelBitmap flag for the 1394 OpenHCI driver. " & _
    "Please reboot your system for this change to take effect")
'-------------- end script --------------