Bonjour a tous,

Je ne comprends pas pourquoi lors de l’exécution un message d'erreur s'affiche m'indiquant que je n'ai pas la permission de l'executer. Je suis connecté en tant que d'Administrateur sur win2003.

Ligne 27
Caract : 3
Erreur: Permission Refusée
Code : 800A0046


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Dim oFSO, fichierVbs, oF1, oF2, wshell, dossierDB
 
Set wshell = CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FilesystemObject")
dossierDB = "\\192.168.69.21\apps\ABSYS\EXPORTSOCS\Dropbox\Test" 
fichierXml = "C:\ProgramData\OCS Inventory NG\Agent\*.xml"
if oFSO.FileExists(fichierVbs) then
	Set oF1 = oFSO.GetFile(fichierVbs) ' Je vais chercher tout les informations sur le fichier
	fromDate = oF1.dateCreated ' Je stock la date de création dans une variable pour la maethode DateDiff
	toDate = Now  ' La date du moment ou est lancé le script
	DiffTps = DateDiff("m", fromDate, toDate) ' Stock la valeur du mois pour l'utlisé dans la condition ci-dessous
	if DiffTps > 6 then ' Si la date de création est sup a 6 mois alors je supprime le fichier et je lance l'ocspackager.exe qui générera un nouveau xml
		oFSO.DeleteFile "C:\ProgramData\OCS Inventory NG\Agent\*.xml",True
		oFSFO.DeleteFile "\\192.168.69.21\apps\ABSYS\EXPORTSOCS\Dropbox\Test\*.xml"
		wshell.Run "\\192.168.69.21\NETLOGON\ocspackage.exe"
		oFSO.CopyFile "C:\ProgramData\OCS Inventory NG\Agent\*.xml", "\\192.168.69.21\apps\ABSYS\EXPORTSOCS\Dropbox\Test", True
 
	else
		oFSO.CopyFile "C:\ProgramData\OCS Inventory NG\Agent\*.xml", "\\192.168.69.21\apps\ABSYS\EXPORTSOCS\Dropbox\Test", True' et je le copie 
	end if
else 
	if ofso.FolderExists(dossierDB) = true then
		wshell.Run "\\192.168.69.21\NETLOGON\ocspackage.exe"
		wshell.run "\\192.168.69.21\NETLOGON\scriptocs.bat"
		oFSO.CopyFile "C:\ProgramData\OCS Inventory NG\Agent\*.xml", "\\192.168.69.21\apps\ABSYS\EXPORTSOCS\Dropbox\Test", True
	else
		wshell.Run "\\192.168.69.21\NETLOGON\ocspackage.exe"
		wshell.run "\\192.168.69.21\NETLOGON\scriptocs.bat"
		set oF2 = oFSO.CreateFolder ("\\192.168.69.21\apps\ABSYS\EXPORTSOCS\Dropbox\Test")
		oFSO.CopyFile "C:\ProgramData\OCS Inventory NG\Agent\*.xml", "\\192.168.69.21\apps\ABSYS\EXPORTSOCS\Dropbox\Test", True
	end if
end if
Merci,
cordialement.