[R] Monter un lecteur réseau via DriveMapAdd ou Net Use

Aide et conseils concernant AutoIt et ses outils.
Règles du forum
.
Répondre
whipper
Niveau 1
Niveau 1
Messages : 13
Enregistré le : jeu. 24 avr. 2008 08:27
Status : Hors ligne

[R] Monter un lecteur réseau via DriveMapAdd ou Net Use

#1

Message par whipper »

Bonjour,

Est-il possible de monter un lecteur réseau pour un utilisateur (Admin du domaine) car j'ai besoin d'executer l'application en tant qu' Admin du domaine (l'application a besoin du lecteur réseau)

En utilisant la commande DriveMapAdd la commande fonctionne mais le lecteur est monté pour l'utilisateur qui execute le fichier Autoit

La commande Net Use semble fonctionner mais ne monte pas le lecteur !!!

Code : Tout sélectionner

;Variables d'installation
$DomainUserName = "ADM"
$DomainName = "domaine"
$UserPassword = "PASS"



$Command = "Net Use P: \\applications\progiciels " & $UserPassword & " /USER:" & $DomainName & "\" & $DomainUserName

RunAs($DomainUserName, $DomainName, $UserPassword, 0,@ComSpec & " /c " & $Command, @ScriptDir)

$var=DriveGetDrive("Network")
If Not @error Then
   FOR $i=1 to $var[0]
       If $var[$i]="P:" Then
           $info=MsgBox(0,"Information", "Lecteur """ &$var[$i]&""" monté avec succès")
           Exit
           Endif
       Next
       EndIf
 


Merci d'avance...
Modifié en dernier par whipper le mar. 01 déc. 2009 09:26, modifié 1 fois.
whipper
Niveau 1
Niveau 1
Messages : 13
Enregistré le : jeu. 24 avr. 2008 08:27
Status : Hors ligne

Re: [R] Monter un lecteur réseau via DriveMapAdd ou Net Use

#2

Message par whipper »

Alors après plusieurs tests...
La solution est d'executer l'exe autoit "en tant que" a partir d'un autre exe autoit...

Code : Tout sélectionner

DriveMapAdd("P:", "\\applications\progiciels")

$var=DriveGetDrive("Network")
If Not @error Then
   FOR $i=1 to $var[0]
    If $var[$i]="P:" Then
    $info=MsgBox(0,"Information", "Lecteur """ &$var[$i]&""" monté avec succès")
    Endif
    Next
    EndIf

;Lancement de l'application
Run(@ProgramFilesDir & "\Nemetschek\Allfa TT\NemFMAllfaTT183withFMGraphics.exe")
 
Répondre