[..] Disposer des droits administrateur dans script

[jcaspar]

B onjour à tous !

Je souhaite copier des fichiers dans un dossier à partir d'un serveur windows 2003
j'ai donc réaliser ce script .. mais je me heurte au problème des droits sur le poste local...serait il possible de modifier le script pour que cela fonctionne directement
sans faire appel à un autre script pour lancer celui ci avec des droits admin ?

Merci d'avance pour vos sugestions conseils et astuces !

Jean Marc

► Afficher le texte

Code : Tout sélectionner

#NoTrayIcon
$sUserName="administrateur"
$sPassword="xxxxx"
RunAs($sUserName, @ComputerName, $sPassword, 1,"C:\Program Files\OCS Inventory Agent",@SW_HIDE)
FileCopy("cacert.pem","C:\Program Files\OCS Inventory Agent")
FileCopy("test.ini","C:\Program Files\OCS Inventory Agent")
If FileExists("C:\Program Files\OCS Inventory Agent\test.ini ") Then
   $file = ("C:\Program Files\OCS Inventory Agent\test.ini")
   $array = IniReadSection($file,"Section"); 
   $tring = @ComputerName
   $utilisateur= @UserName
   $date=(@MDAY & @MON & @YEAR)
   $name = ("Ordinateur")
   $name1=("Utilisateur")
   $name2=("Date du jour")
   IniWrite($file,"Nom du PC",$name,$tring);marque dans $file, a la section "Section", a la ligne $name, la valeur $tring.
   IniWrite($file,"Nom utilisateur",$name1,$utilisateur)
   IniWrite($file,"Date de création fichiers",$name2,$date)
   MsgBox(64,"MsgBox","Tout c'est passé correctement.")
   $var = IniReadSection("C:\Program Files\OCS Inventory Agent\test.ini", "Nom utilisateur")
   If @error Then 
      MsgBox(4096, "", "Nom d'utilisateur manquant")
   Else
      For $i = 1 To $var[0][0]
         MsgBox(4096, "", "Ordinateur: " & $var[$i][0] & @CRLF & "Utilisateur: " & $var[$i][1])
      Next

   Endif
Else
    MsgBox(4096,"Erreur", "Le fichier test.ini n’existe pas")
 
EndIf

If FileExists("C:\Program Files\OCS Inventory Agent\cacert.pem ") Then
    MsgBox(4096," Certificat copié","Le certificat a bien été copié",10)
    
Else
    MsgBox(4096,"Erreur", "Le fichier cacert.pem n’existe pas")
    EndIf

 

[BeCool]

Merci de respecter les règles de présentation d'un message dont voici le lien : http://www.autoitscript.fr/forum/viewto ... f=35&t=595.

On vous a, apparemment déjà fait la remarque ...

Je n'ai pas trouvé votre présentation non plus ....

Pour votre problème, voilà la réponse. Il suffisait de chercher un peu dans le forum ...

Code : Tout sélectionner

Local $sUserName = "nom_du_compte_admin"
Local $sPassword = "mot_de_passe"
Local $sDomaine = "nom_de_domaine"

If not IsAdmin() Then
    RunAs($sUserName, $sDomaine, $sPassword, 0, @ScriptFullPath, @ScriptDir)
    Exit
EndIf

Il faut tout de même savoir que cette solution est risquée. Voir http://www.autoitscript.fr/forum/viewto ... f=3&t=1192