Hi,
ich hab ein kleines Tool, das über die WMI div. Infos rausholt über Datenträger/Partitionen/Volumes.
Was das Ding eigentlich tun soll: exakt bestimmen, ob ein Datenträger ein dynamischer Datenträger ist. Quasi Abfrage an eine Funktion "isDynamicDisk", die dann dieses und jenes macht und true oder false zurückgibt. Momentan hab ich ein Tool, das div. Partitions-Propertys auflistet (Size, DiskIndex, StatusInfo, Type etc...).
Jetzt brauch ich jemanden aus dem Forum der mein Tool testet und an einem Rechner ausführt, an dem ein dynamischer Datenträger hängt. Ich kann es hier nicht testen aber ich muss wissen, welches die richtige Property ist, um einen dynamischen Datenträger zu identifizieren.
Falls also jemand die Möglichkeit dazu hat das zu testen, einfach bitte das Tool ausführen und die Ausgabe hier als Beitrag posten.
Datei: *entfernt; keine EXEn außerhalb des Showrooms!*
Code:
Spoiler anzeigen
Nicht dass ihr denkt ich schick euch schädliche Tools
Link
ich hab ein kleines Tool, das über die WMI div. Infos rausholt über Datenträger/Partitionen/Volumes.
Was das Ding eigentlich tun soll: exakt bestimmen, ob ein Datenträger ein dynamischer Datenträger ist. Quasi Abfrage an eine Funktion "isDynamicDisk", die dann dieses und jenes macht und true oder false zurückgibt. Momentan hab ich ein Tool, das div. Partitions-Propertys auflistet (Size, DiskIndex, StatusInfo, Type etc...).
Jetzt brauch ich jemanden aus dem Forum der mein Tool testet und an einem Rechner ausführt, an dem ein dynamischer Datenträger hängt. Ich kann es hier nicht testen aber ich muss wissen, welches die richtige Property ist, um einen dynamischen Datenträger zu identifizieren.
Falls also jemand die Möglichkeit dazu hat das zu testen, einfach bitte das Tool ausführen und die Ausgabe hier als Beitrag posten.
Datei: *entfernt; keine EXEn außerhalb des Showrooms!*
Code:
Nicht dass ihr denkt ich schick euch schädliche Tools
VB.NET-Quellcode
- Imports System
- Imports System.IO
- Imports System.Text.RegularExpressions
- Imports System.Management
- Imports System.Collections.Specialized
- Module Module1
- Sub Main(ByVal args As String())
- Dim propNames As StringCollection = New StringCollection()
- Dim driveClass As ManagementClass = New ManagementClass("Win32_DiskPartition")
- Dim props As PropertyDataCollection = driveClass.Properties
- For Each driveProperty As PropertyData In props
- propNames.Add(driveProperty.Name)
- Next driveProperty
- Dim text As String = ""
- Dim idx As Integer = 0
- Dim drives As ManagementObjectCollection = driveClass.GetInstances()
- For Each drv As ManagementObject In drives
- Console.ForegroundColor = ConsoleColor.Magenta
- Console.WriteLine()
- Console.WriteLine()
- 'Console.WriteLine(" ******** Drive({0}) Properties ************", idx)
- Console.WriteLine(" ************ " & drv("DeviceID") & " ************ ")
- text &= vbNewLine & vbNewLine & " ************ " & drv("DeviceID") & " ************ " & vbNewLine
- For Each strProp As String In propNames
- Console.ForegroundColor = ConsoleColor.White
- If LCase(strProp) = LCase("type") Then Console.ForegroundColor = ConsoleColor.Yellow
- Console.WriteLine(" [ {0} ] => {1}", strProp, drv(strProp))
- text &= " [ " & strProp & " ] => " & drv(strProp) & vbNewLine
- Next strProp
- Next drv
- Try
- Console.WriteLine()
- IO.File.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\ausgabe.txt", text)
- Shell("notepad.exe """ & Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\ausgabe.txt""", AppWinStyle.NormalFocus)
- Catch ex As Exception
- Console.ForegroundColor = ConsoleColor.Red
- Console.WriteLine(ex.Message.ToString)
- End Try
- Console.ReadLine()
- End Sub
- End Module
Link
Hello World
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()