onjour à tous !Je rencontre un soucis avec un script avec lequel je souhaite copier des
fichiers dans un repertoire mais pour cela il faut que je dispose de droits
administrateurs ... mais apparement je n'ai pas bien codé cette partie ..
pouvez vous svp m'indiquer ce que je dois modifier ?
Merci d'avance pour vos conseils et explications
Jean Marc
Code : Tout sélectionner
; Jeancito;
; Version 1.1
; Date 5 Janvier 2009
; ne pas afficher icone
#NoTrayIcon
;variables login,mot de passe, domaine
Local $sUserName = "administrateur"
Local $sPassword = "xxxxx"
Local $sDomaine = "sd"
; test si administrateur sinon donne droit admin
If Not IsAdmin() Then
RunAs($sUserName, $sDomaine, $sPassword, 0, @ScriptFullPath, @ScriptDir)
Exit
EndIf
;copie des fichiers cacert.pem et test.ini
FileCopy("*.*", "C:\Program Files\OCS Inventory Agent")
; test existence fichiers et lecture du fichier test.ini
If FileExists("C:\Program Files\OCS Inventory Agent\test.ini ") Then
$file = ("C:\Program Files\OCS Inventory Agent\test.ini")
$array = IniReadSection($file, "Ordinateur")
;variable nom ordinateur
$tring = @ComputerName
;variable nom utilisateur
$utilisateur = @UserName
;variables date
$date = (@MDAY & @MON & @YEAR)
;nom des sections
$name = ("Ordinateur")
$name1 = ("Utilisateur")
$name2 = ("Date du jour")
;ecriture dans le fichier test.ini
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)
;affiche message
MsgBox(64, "MsgBox", "Tout c'est passé correctement.")
$var = IniReadSection("C:\Program Files\OCS Inventory Agent\test.ini", "Nom utilisateur")
If @error Then
MsgBox(48, "Utilisateur ?", "Nom d'utilisateur manquant")
Else
For $i = 1 To $var[0][0]
MsgBox(64, "Ordinateur et utilisateur", "Ordinateur: " & $var[$i][0] & @CRLF & "Utilisateur: " & $var[$i][1])
Next
EndIf
Else
MsgBox(48, "Erreur", "Le fichier test.ini n’existe pas", 10)
EndIf
; test existence cacert.pem
If FileExists("C:\Program Files\OCS Inventory Agent\cacert.pem ") Then
MsgBox(64, "Certificat copié ", "Le certificat a bien été copié", 10)
Else
; si cacert.existe affiche message
MsgBox(48, "Erreur", "Le fichier cacert.pem n’existe pas", 10)
EndIf
