[R] Copier dossier avec droits administrateurs+ fichier log

[jcaspar]

B onjour à tous !
Je souhaite copier le contenu d'un repertoire présent sur un serveur vers des machines du réseau pour cela je dois disposer des droits administrateurs voici
le code que j'ai crée... mais rien ne se passe ..avez vous des idées pour résoudre mon problème ?

Merci d'avance pour vos suggestions et conseils

Jean Marc

Code : Tout sélectionner

NoTrayIcon
$sUserName="administrateur"
$sPassword="xxxxx"
RunAs($sUserName, @ComputerName, $sPassword, 0, @ComSpec, @SystemDir,@SW_HIDE)

$b = True
If $b = True Then FileInstall("cacert.pem", "C:\Program Files\OCS Inventory Agent")
FileInstall("test.ini", "C:\Program Files\OCS Inventory Agent")
;générer un fichier log
$file = ("C:\Program Files\OCS Inventory Agent\test.ini");
$array = IniReadSection($file,"Section"); 
$tring = @ComputerName
$name = ("Nom PC")
    IniWrite($file,"Section",$name,$tring);marque dans $file, a la section "Section", a la ligne $name, la valeur $tring.
     MsgBox(64,"MsgBox","Tout c'est passé correctement.")
     
     
     $var = IniReadSection("C:\Program Files\OCS Inventory Agent\test.log", "section2")
     If @error Then 
    MsgBox(4096, "", "Erreur rencontrée, le fichier ini est probablement manquant.")
Else
    For $i = 1 To $var[0][0]
        MsgBox(4096, "", "Key: " & $var[$i][0] & @CRLF & "Value: " & $var[$i][1])
    Next
EndIf



 

[sylvanie]

Bonsoir,

j'ai insérer mes remarques en commentaires dans le code :

► Afficher le texte

Code : Tout sélectionner

NoTrayIcon
$sUserName="administrateur"
$sPassword="xxxxx"


RunAs($sUserName, @ComputerName, $sPassword, 0, @ComSpec, @SystemDir,@SW_HIDE)
;<<<<<<<<<<<<<<<<< ATTEBNTION, RUNAS va simplement lancer un cmd en mode admin mais
; le reste du script n'est pas dans ce mode, attention, runas n'est pas un équivalent pure du bon vieux runasset
; il faudra compiler le script du dessous, et le lancer via un runas dans un deuxième script ...

$b = True
If $b = True Then FileInstall("cacert.pem", "C:\Program Files\OCS Inventory Agent")
;<<< quelques remarques :
; 1 - j'utilisrai la macro @ProgramFilesDir au lieu de C:\Program Files, ça évite des mauvaises surprise, sauf si il ya une raison
; que je ne connais pas qui impose cette dclaration de chemin en dur
; 2 - il serait bon de prepréciser le nom du fichier dans a destination au lieu de s'arrêter au répertoire :
; FileInstall("cacert.pem", @ProgramFilesDir&"\OCS Inventory Agent\cacert.pem")
; 3 pour le debug, il faudrait récupérer le code retours de fileinstall 
FileInstall("test.ini", "C:\Program Files\OCS Inventory Agent")
;<<<<<<<<<idem

;générer un fichier log
$file = ("C:\Program Files\OCS Inventory Agent\test.ini");
$array = IniReadSection($file,"Section"); 
$tring = @ComputerName
$name = ("Nom PC")
    IniWrite($file,"Section",$name,$tring);marque dans $file, a la section "Section", a la ligne $name, la valeur $tring.
     MsgBox(64,"MsgBox","Tout c'est passé correctement.")
     
     
     $var = IniReadSection("C:\Program Files\OCS Inventory Agent\test.log", "section2")
     If @error Then 
    MsgBox(4096, "", "Erreur rencontrée, le fichier ini est probablement manquant.")
Else
    For $i = 1 To $var[0][0]
        MsgBox(4096, "", "Key: " & $var[$i][0] & @CRLF & "Value: " & $var[$i][1])
    Next
EndIf