Support Installation ETKA, Teil 2

Tech12 schrieb:

Moin

Welchen Loader nutzt du? Hast du dich an den Klick gehalten?
Also wirklich bis ins kleinste Detail muss man sich daran halten, sonst klappt es auch nicht.

Eine Lösung möchte jeder gern haben, jedoch sieht es da noch dunkel aus und daher die Möglichkeit mit den internationalen Updates.

Haltet euch zum recherchieren der einzelnen und schon zu oft beantworten Fragen auch ruhig mal an Extreme erstellte FAQ

Zum Vergrößern anklicken....

-XTR3M3- schrieb:

Mal ehrlich, was ist so schwer daran die letzten 3 Seiten zu lesen? Es steht dort alles mehr als detailliert beschrieben. Es sind sogar Links in den Post's hinterlegt, mit denen man direkt zum Ziel kommt. Es kann doch nicht sein, dass wir auf jeder Seite alles nochmal erklären müssen, nur weil Leute scheinbar zu faul sind die letzten Seiten zu lesen? Ich muss auch ehrlicherweise sagen, dass mir allmählich die Lust vergeht hier Support zu geben, egal ob per PN oder im Thread, wenn sowieso immer und immer wieder die gleichen Probleme besprochen werden sollen, die schon längst gelöst und der Lösungsweg mehr als ausreichend beschrieben wurde. Regelmäßig werfe ich einen Blick in den Supportthread hier und verlasse ihn mit einem Augenrollen ohne zu antworten.

Zum Vergrößern anklicken....

muellert schrieb:

Hallo -XTR3M3-,

ich hätte dir lieber per PN geschrieben aber anscheinend finde ich die Funktion nicht oder es ist deaktiviert.


Folgender Code hat 2 Fallbacks zur ProcessorID (Mac-Adresse und Seriennummer der 1. HDD) und funktioniert damit auch unter VirtualBox:

Spoiler: Snippet

C#:

Imports System.Management
Imports System.Net.NetworkInformation

Module Program
    Sub Main(args As String())
        Console.WriteLine("ProcessorId=" + GetProcessorId())
        Console.WriteLine("HDD-SerialNumber=" + getHDDSerialNumber())
        Console.WriteLine("MAC-Address=" + getMacAddress())
        Console.WriteLine("Resulting UniqueID=" + GetUniqueId())
        Console.ReadKey()

    End Sub


    Public Function GetUniqueId() As String
        Dim uniqueId = GetProcessorId()
        If uniqueId Is Nothing Then
            uniqueId = getMacAddress()
        End If
        If uniqueId Is Nothing Then
            uniqueId = getHDDSerialNumber()
        End If
        Return uniqueId

    End Function

    Public Function GetProcessorId()
        Dim processorId As Object = Nothing
        Dim query As New SelectQuery("Win32_processor")
        Dim search As New ManagementObjectSearcher(query)
        Dim mo As ManagementObject
        For Each mo In search.Get()
            processorId = mo("processorId")
        Next
        Return processorId
    End Function


    Function getMacAddress()
        Dim nics() As NetworkInterface = NetworkInterface.GetAllNetworkInterfaces()
        Dim mac As Object = Nothing
        For Each nic In nics
            mac = nic.GetPhysicalAddress().ToString
            If Not String.IsNullOrEmpty(mac) Then
                Exit For
            End If
        Next

        Return mac

    End Function


    Function getHDDSerialNumber()
        Dim serialNumber As Object = Nothing
        Dim query As New SelectQuery("Win32_DiskDrive")
        Dim search As New ManagementObjectSearcher(query)
        Dim mo As ManagementObject
        For Each mo In search.Get()
            serialNumber = mo("SerialNumber")
        Next
        Return serialNumber
    End Function

End Module

Ist jetzt als Konsolenanwendung umgesetzt, denke aber das ist verständlich. Bin auch absoluter VB-Anfänger, kann also auch noch Unschönheiten enthalten

Spoiler: Ausgabe unter VirtualBox

ProcessorId=
HDD-SerialNumber=VBf28a28e8-f0b6c8ba
MAC-Address=0800275294E5
Resulting UniqueID=0800275294E5

Musst du natürlich noch auf deine Begebenheiten anpassen und wenn du Fragen hast oder jemand zum Testen benötigst, dann immer her damit.

Danke fürs Einbauen

Zum Vergrößern anklicken....