---

Hallo Zusammen,

möchte gerne eine Datei in VB6 verschieben.
Der User hat keine Rechte von diesem Verzeichnis aus diese Datei zu verschieben. Wie kann ich einen bestimmten User mit Passwort mitgeben, der diesesn Recht hat, so das diese Aktion doch ausgeführt wird?

oFSO.MoveFile C:\temp\123.txt, C:\Temp\abc\123.txt

Danke für jede Hilfe.

------------------
Schöne Grüße
Feyza : )

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

In vb6 wird das IMHO schwierig, geht nur über temporäre command Datei und einem runas mit Passwortübergabe über Keyboardsimulation.

So weit ich weiss gibt es in vb.net mehr Möglichkeiten

Axel

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Guten Morgen Axel,

danke Dir für deine Hilfe.

Könntest Du mir bitte sagen, wie der Code im commando heißen würde?

Wie könnte man dies in VB.NET umsetzen?

Ich könnte diese Aktion dann per VB.NET ausführen.

------------------
Schöne Grüße
Feyza : )

[Diese Nachricht wurde von Feyza am 13. Nov. 2006 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Guten Morgen Feyza,

ich würde mal in den Net Klassen:
My.User
My.Computer.User
System.Environment
suchen. Diese beinhalten Informationen über den aktuellen User.
Hier noch ein kleines Beispiel: http://www.vbarchiv.net/archiv/tipp_details.php?pid=1460

Wie man deine Aufgabe genau löst, kann ich dir leider auch nicht sagen!
Viel Glück!

------------------
Mfg Daniel

Es gibt nur drei Möglichkeiten: Sieg, Unentschieden oder Niederlage
----------------------------------------------
SolidWorks API-Programmierung | Makros | Tools | Addins | Schulung

SolidWorks API Programmierung; Schuler Design Automation GmbH |   kontakt@schuler-da.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Daniel,

danke dir.

Im Internet habe ich eine pcRunAs.exe gefunden, wo man den User,Passwort und die Anwendung mitgeben kann, dann kann man per CommandoZeile eine exe ausführen. Aber leide nur eine exe.

Wenn ich z.b. My. User in der Hilfe datei eingebe, kommen 500 Dateien.

Vielleicht kann mir hierbei doch jemand weiterhelfen.

Ich möchte eine Datei mit einem anderen USer/Passwort verschieben.

Danke nochmals.

------------------
Schöne Grüße
Feyza : )

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo nochmal,

ich habe unter DOS noch die Möglichkeit mit dem CommandoBefehl: cacls

Wie kann ich unter VB6 in einem Code eine Commandozeile mitgeben:
und
wie funkioniert dies unter VB.NET?

Danke.

------------------
Schöne Grüße
Feyza : )

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ich weis jetzt nicht genau was du meinst.

Willst du Befehlszeilen wie in der Konsole übergeben?
Das geht mit dem Shell Befehl. Diesen gibt es in vb6 und vb.net!
Wenn es das ist...

------------------
Mfg Daniel

Es gibt nur drei Möglichkeiten: Sieg, Unentschieden oder Niederlage
----------------------------------------------
SolidWorks API-Programmierung | Makros | Tools | Addins | Schulung

SolidWorks API Programmierung; Schuler Design Automation GmbH |    kontakt@schuler-da.de 

[Diese Nachricht wurde von tbd am 13. Nov. 2006 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Schau mal hier:
http://board.gulli.com/thread/404857-vb-skript---funktionslos---bitte-mal-draufschauen/

Vielleicht bringt Dich das weiter.

Das Hauptproblem ist dass das PW nur schwer übergebbar ist und da bringt Dich der CACL Befehl auch nicht viel weiter, da dieser ja auch mit einem Admin Account ausgeführt werden muss.

Ich habe in Scripts das mit den Command Files noch so gelöst:

Command = "%comspec% /c dir > " & TempFile
WshShell.Run Command, 7,True

für einen Befehl oder für ein ganzes Script:

Set fi = fso.CreateTextFile(cmdfile, True)
fi.WriteLine "echo off"
fi.WriteLine "PATH=%PATH&;" & GhostDir & "gs8.00\lib;" & GhostDir & "\fonts;" & GhostDir & "gs8.00\bin;"
fi.WriteLine "gswin32.exe -q -dNOPAUSE -dBATCH -sDEVICE=pdfwrite -r600 -dDEVICEWIDTHPOINTS=" & PWidth & _
" -dDEVICEHEIGHTPOINTS=" & PHeight & " -sOutputFile=""%DIROUTPLO%" & Dessnom & "_bw.pdf"" """ & Nomfic & """"
fi.WriteLine "gswin32.exe -q -dNOPAUSE -dBATCH -sDEVICE=pdfwrite -r600 -dDEVICEWIDTHPOINTS=" & PWidth & _
" -dDEVICEHEIGHTPOINTS=" & PHeight & " -sOutputFile=""%DIROUTPLO%" & Dessnom & "_c.pdf"" """ & Nomfic & """"
fi.WriteLine "del """ & Nomfic & """"
fi.close

Command = "%comspec% /c " & cmdfile
WshShell.Run Command, 7, True

Das löst Dir aber alles nicht Deine Probleme mit der Berechtigung. Ich habe damals meine Versuche mit dem Senkey das PW mitzugeben aufgegeben, es war mir zu kompliziert und auch zu unsicher. Wahrscheinlich solltest Du noch einmal Dein ganzes Konzept überlegen, das kommt auf Deine Anforderungenan. Hier ein paar Ideen:

- Alles in ein Installationspaket packen, das mit Admirechten verteilt wird.
- Lösung über einen Systemservice
- Überlegen ob die Berechtigungfen standardmässig nicht geändert werden können.

Ich habe mir sagen lassen, dass man im VB.NET in den Programmen definieren kann, dass gewisse Programmteile mit Admin Berchtigung laufen müssen. Details kann ich Dir leider nicht erzählen, da ich da keine Erfahrung habe.

Axel

[Diese Nachricht wurde von Axel.Strasser am 13. Nov. 2006 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Abend auch,

ich halte das für keine besonders gute Idee. Im besten Falle handelst Du Dir hier ein 'kleines' Sicherheitsproblem ein ...

Außerdem solltest Du vorab unbedingt mal abklären ob Du das in Eurer Firma denn überhaupt tun darfst !!

Warum erteilst Du/Euer Admin den entsprechenden Usern nicht einfach die notwendigen Berechtigungen und alles ist gut ?

Machbar ist sowas nun aber schon 

runas kennt ab XP Prof. den Parameter /savecred, google mal danach.

runasspc http://www.robotronic.de/runasspc.html  ist anscheinend sicher, aber nur für private Benutzung kostenlos.

Sysinternal's psexec kann das auch. Übrigens, die gehören seit Kurzem zu M$: http://www.microsoft.com/technet/sysinternals/ProcessesAndThreads/PsExec.mspx

Lies auch mal dieses (sehr lang, mit vielen netten Links, insbesondere der 1te ist IMHO höchst interessant): http://blogs.msdn.com/oldnewthing/archive/2004/11/29/271551.aspx

cu, Bernd

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

@Guten Morgen Bernd,
mit /savecred werde ich es versuchen umzusetzen.

@Guten MOrgen Axel,
danke Dir auch. Werde dies mit /savecred versuchen : )

Danke Euch nochmals : )

------------------
Schöne Grüße
Feyza : )

[Diese Nachricht wurde von Feyza am 14. Nov. 2006 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP