Announcement

Collapse
No announcement yet.

DOS-Befehle ausführen

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • DOS-Befehle ausführen

    Guten Tag Forum

    Steh wieder einmal vor einem Problem, und hab schon den ganzen Nachmittag herumprobiert, und komme auf keinem grünen Zweig mehr.

    Habe das Betriebssystem Vista. Das Programm wird aber nachher auch auf dem WIN7 laufen.

    Für den Zugriff auf ein Netzwerk brauche ich ADMINberechtigungen. Ich habe mir das so vorgestellt, dass ich dazu das CMD von Windows benutze. Leider bringe ich es einfach nicht korrekt zum laufen.

    Wie kann ich mri über diesen Weg ohne, dass ich das Passwort hinterlegen muss, die Administrator-Passworteingabe aufrufen.

    Auch frage ich mich, ob es nicht eine Möglichkeit gibt, mehrere Argumente in das gleiche CMD-Fenster einbringen zu können, ohne das immer wieder ein neues CMD-Fenster gestartet werden muss.

    [highlight=vbnet]
    Private Sub SPasAdmin()
    Dim pMyP As New Process
    Dim sdpSI As New System.Diagnostics.ProcessStartInfo
    Dim sr As System.IO.StreamReader
    Dim sw As System.IO.StreamWriter
    Dim strRichText As String
    Dim arguments() As String

    ReDim arguments(4)
    arguments(0) = "cmd.exe" 'FileName
    arguments(1) = "net user admin" 'irgendein Befehl >> Argument
    arguments(2) = "ipconfig /all" 'irgendein Befehl >> Argument
    arguments(3) = "ping www.google.ch" 'irgendein Befehl >> Argument
    arguments(4) = "net user admin" 'irgendein Befehl >> Argument

    'Wie hole ich mir Administratorberechtigung dafür ?
    sdpSI.FileName = arguments(0)
    sdpSI.RedirectStandardInput = True
    sdpSI.RedirectStandardOutput = True
    sdpSI.UseShellExecute = False
    If System.Environment.OSVersion.Version.Major >= 5 Then sdpSI.Verb = "runas"
    pMyP.StartInfo = sdpSI
    pMyP.Start()
    sr = pMyP.StandardOutput
    sw = pMyP.StandardInput
    strRichText = arguments(1)
    sw.WriteLine(strRichText)
    sw.WriteLine("exit")
    strRichText = sr.ReadToEnd
    Me.TextBox3.Text = Me.TextBox3.Text & strRichText
    '.....
    '.....
    '.....
    '.....
    End Sub
    [/highlight]

    Den Weg über eine Batch-Datei habe ich auch scho versucht, nur das Problem ist, ich kann kein Passwort eingeben, es ist wie Blockiert.

    [highlight=vbnet]
    runas /user:%COMPUTERNAME%\Administrator Admin.bat
    [/highlight]


    Für die Hilfe schon mal einen Dank im Vorraus
    Zuletzt editiert von Exc-JDBI; 28.01.2011, 16:16.
Working...
X