Suchergebnisse

Hallo liebe Leute im Forum, ich stehe vor vor einem Rätsel. Ich möchte einen kleines Tool erstellen mit dem ich den Schreibschutz unter Windows 10 IOT einschalten bzw. ausschalten kann. Leider habe ich nich wenig Ahnung von VB. Ich schaffe es irgendwie nicht das der der CMD Befehl als Admin ausgeführt wird. Das geht ja glaube eigentlich mit runas, nur leider scheint es nicht zu funktionieren. Ich habe den Code unten mal ohne runas dazu geschrieben. Private Sub Button1_Click(sender As Object, e A…

Danke für deine Antwort. Mit runas sieht das jetzt so aus. Das Programm wird ausßerdem schon als Admin gestartet. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click If TextBox1.Text = "Master" Then MsgBox("Schreibschutz wird aktiviert. System startet neu") Dim p As New Process() p.StartInfo = New ProcessStartInfo("cmd.exe c/uwfmgr filter enable") With { .CreateNoWindow = True, .WindowStyle = ProcessWindowStyle.Hidden } p.StartInfo.Verb = "runas" p.Start() End If En…

danke für die schnelle Antwort. Leider funktioniert der code auch nicht. Die CMD soll im HIntergrund starten und nur diesen einen kurzen befehl ausführen. Allerdings habe ich das gefühl, dass VB gar nicht die Arguments überträgt. Also dass die CMD zwar als Admin geöffnet wird, aber sie den Befehl nicht ausführt.

Das Programm stürtz immer ab wenn der code ausgeführt wird. "Kann die Datei nicht finden"

ich habe jetzt eine batch datei gschrieben, die das mit dem Schreibschutz macht (Also den Befehl ausführt). Allerdings weiß ich nicht wie ich die als Admin starte. Das mit dem "runas" funktioniert nicht. Ich habe es auch schon ausprobiert, dass man bei starten des Programmes Admin Rechte braucht. Vielleicht könnt ihr mir da helfen. @exc-jdbi was meinst du damit?

Danke für die vielen Antworten. Das Windows, auf dem ich das Programm immer teste, hat definitiv eine Schreibschutz funktion. Die kann ich über die cmd auch aktivieren. Den Post #6 habe ich schon ohne erfolg ausprobiert. Dim p As New Process() p.StartInfo.FileName = "enable.bat" p.StartInfo.CreateNoWindow = True p.StartInfo.WindowStyle = ProcessWindowStyle.Hidden p.StartInfo.Verb = "runas" p.Start() dieser Code müsste doch so auch funktioniern. Hier startet er die Batch Datei aber auch nicht als…

Ja das habe ich auch schon gemacht. Ich habe jetzt nochmal diesen Code ausprobiert: Dim psi As New ProcessStartInfo() psi.FileName = ".\\enable.bat" psi.Verb = "runas" Process.Start(psi) Wenn das Programm jetzt diesen Code ausführt fragt er mich nach den Admin Rechten. Dann startet er die Datei (enable.bat) und gibt die Fehlermeldung aus, dass es den Befehl uwfmgr nicht gibt. Wenn ich aber wie schon gesagt die enable.bat selbst starte funktioniert sie.

ich habe windows 10 iot enterprise. Das hat einen schreibschutz. @RodFromGermany ja die exe starte ich als Admin. Grüße

den schreibschutz habe ich ja schon über eine batch datei erfolgreich starten können. Allerdings geht das nicht wenn ich die Batch über das VB Programm starte. Dann sagt die Batch datei das uwfmgr usw. evt. falsch geschrieben ist... Es geht jetzt eher darum dass die Batch Datei scheinbar nicht richtig gestartet wird. Sie öffnet sich zwar und alles, aber gibt halt diesen Fehler aus. In der Batch Datei steht nur drin: uwfmgr filter enable pause

Ich habe jetzt nochmal die uwfmgr.exe mit kompletter Pfad-Angabe gestartet und er gibt die Fehlermeldung aus, dass die Datei nicht gefunden werden konnte.