accesschk

[Dirk]

Hi erstma undzwar hab ich folgendes Problem,
ich will bzw. muss für das
accesschk-tool eine grafische Oberfläche erstellen
http://www.microsoft.com/technet/sysinternals/utilities/accesschk.mspxhttp://www.microsoft.com/technet/sysinternals/utilities/accesschk.mspx

mann soll nur auf einem button klicken und nur diese funktion -r von dem toll soll ausgegeben werden

welche Sprache ist mir egal ich wollts in PHP versuchen bin aber gescheitert
in Visual Basic hatte mein Partner mehr glück aber so richtig klappt es n och nicht

hier mal der Angefangene Quellcode:

Dim Pfad, PfadAusgabe As String
Dim i, FNr As Integer

Pfad = Dir1
For i = 1 To Len(Pfad) + 1 Step 1
    If Mid(Pfad, i, 1) = "" Then
        Pfad = Left(Pfad, i - 1) & "/" & Mid(Pfad, i + 1, Len(Pfad) - (i - 1))
        i = i + 1
    End If
Next i

PfadAusgabe = App.Path & "\Ausgabe.txt"
FNr = FreeFile
Open PfadAusgabe For Append As #FNr
    Print #FNr, Shell(App.Path & "\accesschk.exe -r " & Pfad, 4);
Close #FNr

Dim Pfad, PfadAusgabe As String
Dim i, FNr As Integer
Sind die Variablen welche verwendet werden, String steht dabei für eine Textvariable.
Pfad = Dir1
For i = 1 To Len(Pfad) + 1 Step 1
    If Mid(Pfad, i, 1) = "" Then
        Pfad = Left(Pfad, i - 1) & "/" & Mid(Pfad, i + 1, Len(Pfad) - (i - 1))
        i = i + 1
    End If
Next i
Da die accesschk.exe nicht mit dem []-Zeichen klar kommt, wird der Pfad hier in [/]-Zeichen umgewandelt.
PfadAusgabe = App.Path & "\Ausgabe.txt"
FNr = FreeFile
Open PfadAusgabe For Append As #FNr
    Print #FNr, Shell(App.Path & "\accesschk.exe -r " & Pfad, 4);
Close #FNr
Die nun ausgelesenen Daten werden in eine *Txt.-Datei gespeichert, um sie später auszulesen und weiterzuverarbeiten.

mir ist eigtl. egal welche Sprache,Hauptsache es klappt vielen DAnk im vorraus

MFG MDirk