Hab die fehlenden Einträge hinzugefügt, jetzt funktioniert das Skript bzw das gesamte Programm problemlos.
Danke für eure Hilfe
Guten Morgen,
kannst Du uns bitte Deine Änderungen am Script einmal hier posten, damit wir nachvollziehen können, was Du wo geändert/erweitert hast?
Edit:
Selber gefunden Das Array $aMemType innerhalb der Funktion _CI_GetRAM entsprechend anpassen:
Func _CI_GetRAM($strComputer = '.')
Local $aMemType[26] = ['Unbekannt', 'Anderes', 'DRAM', 'Sync DRAM', 'Cache DRAM', _
'EDO', 'EDRAM', 'VRAM', 'SRAM', 'RAM', 'ROM', _
'Flash', 'EEPROM', 'FEPROM', 'EPROM', 'CDRAM', '3DRAM', _
'SDRAM', 'SGRAM', 'RDRAM', 'DDR', 'DDR-2', 'DDR2 FB-DIMM', 'DDR3', 'FBD2']
Wie @Bitnugger bereits geschrieben hat, stürzt die Version 2.1 noch beim Tab Steckplätze ab:
Computer-Info.au3" (696) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.:
$aReturn[$x][2] = $aMaxDataWidth[$objItem.MaxDataWidth] & ' Bits'
$aReturn[$x][2] = ^ ERROR
Wenn ich mir die entsprechende Funktion anschaue und hier schaue https://msdn.microsoft.com/en-us/library/…6(v=vs.85).aspx , komme ich da aber nicht
so einfach weiter wie bei dem RAM.
Func _CI_GetSystemSlot($strComputer = '.')
Local $aReturn[2][3] = [['Bezeichnung:', 'Steckplatz belegt:', 'max. Datenbreite:']]
Local $aUsage[5] = ['Reserviert', 'Anderer', 'Unbekannt', 'Nein', 'Ja']
Local $aMaxDataWidth[5] = [8, 16, 32, 64, 128]
Local $x = 0, $objWMIService, $colItems
$objWMIService = ObjGet('winmgmts:\\' & $strComputer & '\root\cimv2')
If Not IsObj($objWMIService) Then Return SetError(1, 0, 0)
$colItems = $objWMIService.ExecQuery('SELECT * FROM Win32_SystemSlot', 'WQL', 0x30)
If IsObj($colItems) Then
For $objItem In $colItems
$x += 1
ReDim $aReturn[$x + 1][3]
$aReturn[$x][0] = $objItem.SlotDesignation
$aReturn[$x][1] = $aUsage[$objItem.CurrentUsage]
$aReturn[$x][2] = $aMaxDataWidth[$objItem.MaxDataWidth] & ' Bits'
Next
EndIf
Return $aReturn
EndFunc ;==>_CI_GetSystemSlot
Alles anzeigen