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