Break On

Dim $SO,$Pause

$SO=SetOption('Explicit','On')

$SO=SetOption('NoVarsInStrings','On')

$SO=SetOption('WrapAtEOL','On')

 


; Main code (function) starts here... 

DIM $Index, $BadAdapters, $Type, $Types, $Speed, $Name, $sComputer

DIM $HKLMSCCSCC, $NicData, $Key, $DeviceID, $MediaType, $RequestedMediaType

 


; Enter the name of the remote computer here, if left blank will check current Computer 

$sComputer='' 

 


; Add UNC to Computer name if $sComputer name supplied 

If $sComputer $sComputer = '\\' + $sComputer + '\' EndIf

If InStr($sComputer,@WKSTA) $sComputer="" EndIf

 


; List of adapter names that are not NICs. Any name that ends with a (val)  

; will be trimmed to eliminate the parens and the data in them. 

$BadAdapters = '~Miniport Wan~RAS Async~Direct Parallel~'

 


; Main registry key to enumerate 

$HKLMSCCSCC=$sComputer+'HKLM\SYSTEM\CurrentControlSet\Control\Class\{4D36E972-E325-11CE-BFC1-08002bE10318}'

 


; Get a list of NICs from the registry 

$NicData = ArrayEnumKey($HKLMSCCSCC)

 


; Examine each entry 

For Each $Key In $NicData

 


  ; Read the Driver Description 

  $DeviceID = ReadValue($HKLMSCCSCC+'\'+$Key,'DriverDesc')

 


  ; If not null, and not in the list of Bad Adapters, try to identify the speed parameter 

  If $DeviceID And Not InSTR($BadAdapters, '~' + Trim(Split($DeviceID, '(')[0]) + '~')

 


      Select

        ; Intel adapters 

        Case InStr($DeviceID,'Intel')

          $Name='SpeedDuplex'

 


        ; Broadcom and HP adapters 

        Case InStr($DeviceID,'Broadcom') Or InStr($DeviceID,'HP NC7781')

          Or InStr($DeviceID,'HP NC7770')

          $Name='RequestedMediaType'

 


        ; 3Com adapters 

        Case InStr($DeviceID,'3Com')

          $Name='media_type'

 


        ; HP Realtek adapters 

        Case InStr($DeviceID,'Realtek')

          $Name='DuplexMode'

 


        ; Linksys adapters 

        Case InStr($DeviceID,'Linksys')

          $Name='MediaType'

 


        ; Virtual WMware ESX Server adapters 

        Case InStr($DeviceID,'AMD PCNET')

          $Name='EXTPHY'

 


        ; HP NC3163 adapters 

        Case InStr($DeviceID,'HP NC3163')

          $Name='SpeedDuplex'

 


        ; Unable to find one of the listed nic cards 

        Case 1

          $Name = ''

      EndSelect

 


    ; If we identified the card, read & display the settings 

    If $Name

      ; Read the numeric value that represents the current Speed / Duplex setting 

      $RequestedMediaType = ReadValue($HKLMSCCSCC+'\' + $Key, $Name)

 


      ; If this value is blank, we probably don't have a valid NIC definition 

      ; continue if not blank 

      If $RequestedMediaType <> ''

 


        ; Enumerate the values that represent the Speed/Duplex setting descriptions 

        $Types = ArrayEnumValue($HKLMSCCSCC + '\' + $Key + '\Ndi\params\' + $Name + '\enum')

 


        ; Should always be an array ? 

        If VarType($Types) >= 8192

 


          ; Find the descriptive value that matches our defined setting 

          $Index = AScan($Types, $RequestedMediaType)

 


          ; Then get the speed/duplex description string if Index is valid 

          If $Index >= 0

            $Types = $Types[$Index]

            $Speed = ReadValue($HKLMSCCSCC+'\' + $Key + '\Ndi\params\' + $Name + '\enum', $Types)

          Else

            ; Value defined does not match avaialble descriptions 

            $Speed = 'Undetermined'

            If $RequestedMediaType = 8 $Speed = 'Possible Gigabit Full Duplex' EndIf

          EndIf	; Good index 

        Else

          ; Not an array, so no setting names were defined 

          $Speed = 'Undetermined - bad array'

        EndIf	; Is array 

 


        'Device Name: ' $DeviceID ?

        'Device Index: ' $Key ?

        'Speed Setting: ' $Speed ?

        'Media Type: ' $RequestedMediaType ?

 


      EndIf	; Requested Media Type 

 


    EndIf	; Valid name 

 


  EndIf		; Good device id 

 


Next	; Each Entry 

 


; Return an array of subkey names from the primary location 

Function ArrayEnumKey($RegSubKey)

  Dim $SubKeyCounter, $CurrentSubKey, $SubKeyArray

  If Not KeyExist($RegSubKey)

    Exit 87

  EndIf

  $SubKeyCounter = 0

  Do

    $CurrentSubKey = EnumKey($RegSubKey, $SubKeyCounter)

    If Not @ERROR

      ReDim Preserve $SubKeyArray[$SubKeyCounter]

      $SubKeyArray[$SubKeyCounter] = $CurrentSubKey

      $SubKeyCounter = $SubKeyCounter + 1

    EndIf

  Until @ERROR

  $ArrayEnumKey = $SubKeyArray

  Exit 0

EndFunction

 


; Return an array of values from the defined key 

Function ArrayEnumValue($RegSubKey)

  DIM $ValueCounter, $CurrentValue, $ValueArray

  If Not KeyExist($regsubkey)

    Exit 87

  EndIf

  $ValueCounter = 0

  Do

    $currentvalue=EnumValue($RegSubKey,$ValueCounter)

    If Not @ERROR

      ReDim Preserve $ValueArray[$ValueCounter]

      $ValueArray[$ValueCounter] = $CurrentValue

      $ValueCounter = $ValueCounter + 1

    EndIf

  Until @ERROR

  $ArrayEnumValue = $ValueArray

  Exit 0

EndFunction