SID (akt. User) Visual Basic 2005 import von Datei?

Hallo allezusammen,

ich habe folgenedes Problem: Ich hatte bereits mit eurer Hilfe eine Batch-Datei erstellt welche die SID auslesen kann und dann entsprechende Registry einträge erstellt. Jetzt möchte ich allerdings die .bat Datei innerhalb einer Visual Basic 2005 Anwendung aufrufen. Ich muss dabei beachten, dass der ausführende Benutzer ggf. keine Admin-Rechte hat. Gibt hier jetzt eine schöne Möglichkeit die SID zum aktuellen User zu ermitteln:


ist der Code der Batch-Datei. Ich bin mit der installierten VB version nun leider nicht in der Lage die SID aus der Datei sid.txt auslesen und als Variable in VB zu speichern. Ist das überhaupt notwendig, dass ich es mir so kompliziert mache oder geht es möglichweise auch einfacher, direkt per VB (nur ohne Admin-Rechte)?

und kann ich die Registry-Einträge nicht auch direkt aus VB aufrufen? wenn ja wie..

PS: Ich habe die letzten 2 stunden überall gesucht und konnte mit keinem der Tipps so richtig was anfangen.
PPS: Ich hoffe der Beitrag ist richtig eingeordnet, wegen VB/Batch

mfg Przigoda

Dim objNetwork : Set objNetwork = CreateObject("WScript.Network")  
Dim wmiQuery : wmiQuery = "Select * From Win32_UserAccount Where Domain='" & objNetwork.UserDomain & _  
    "' And Name='" & objNetwork.UserName & "'"  
Dim objWMIService : Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")  
Dim colItems : Set colItems = objWMIService.ExecQuery(wmiQuery)
Dim objItem
For Each objItem in colItems
   WScript.Echo "Your SID is : " & objItem.SID  
Next

Dim Adobe As String = "Software\Adobe\Adobe Acrobat"  
Dim aKeys = My.Computer.Registry.CurrentUser.OpenSubKey(Adobe).GetSubKeyNames
Dim Version = aKeys(UBound(aKeys))

Dim AdobeSec As String = Adobe & "\" & Version & "\Security"  
Dim aVals = My.Computer.Registry.CurrentUser.OpenSubKey(AdobeSec).GetValueNames
Dim Latest As Integer = -1, SubKey As String
For Each SubKey In aVals
    If LCase(Mid(SubKey, 1, 1)) = "t" Then  
        If Val(Mid(SubKey, 2)) > Latest Then Latest = Val(Mid(SubKey, 2))
    End If
Next

Dim NewValue As String = "t" & CStr(Latest + 1)  
Dim NewData As String = Environment.ExpandEnvironmentVariables("%temp%") & "\*.dll"  
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\" & AdobeSec, NewValue, NewData)