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
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