CopyFolder à partir d'une bibliothèque WSS

Version imprimable

02/05/2008, 12h12
enimren

CopyFolder à partir d'une bibliothèque WSS

Bonjour.

J'ai testé CopyFolder pour faire copier le contenu d'un répertoire sur ma machine vers un autre répertoire et ça marche.

Maintenant j'essaye de copier le contenu d'un répertoire situé sous une bibliothèque WSS 3 (SharePoint) de type : http://servername/mylibrary/myfolder.

Je fait donc FSys.CopyFolder "http://servername/mylibrary/myfolder", "c:\dest"

Mais ça marche pas et j'ai comme erreur :

Argument ou appel de procédure incorrect.
code erreur : 800A0005.

Avez vous une idée svp ?

Merci d'avance.
05/05/2008, 09h49
ced600

copyfolder ne doit pas marcher avec des adresse web.
Peut être avec une syntaxe comme suit :

Code:

FSys.CopyFolder "\\AdresseIPServer\mylibrary\myfolder", "c:\dest"
05/05/2008, 12h16
enimren
Bonjour CED600.

Merci pour votre réponse.

Après activation du service WebClient je n'ai plus le message d'erreur présenté ci-dessus mais j'ai un access denied!

Ce qui n'est pas étonnant vu la sécurité sur sharepoint.

Mon souci maintenant c'est comment faire un CreateObject("Scripting.FilsSystemObject") en précisant le compte qui effectuera le copiage...
Code:

1 2 3 Code SnippetSet FSys = CreateObject("Scripting.FilsSystemObject") FSys.CopyFolder...
Je connais absolument pas le VBScript.

Si qqn a une idée, je serais reconnaissant!

A l'aide du WMI tu peux te connecter à n'importe quel ordinateur (local ou distant) en précisant le compte pour la connection :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
' Full Computer Name
' can be found by right-clicking My Computer,
' then click Properties, then click the Computer Name tab)
' or use the computer's IP address
strComputer = "FullComputerName" 
strDomain = "DOMAIN" 
Wscript.StdOut.Write "Please enter your user name:"
strUser = Wscript.StdIn.ReadLine 
Set objPassword = CreateObject("ScriptPW.Password")
Wscript.StdOut.Write "Please enter your password:"
strPassword = objPassword.GetPassword()
 
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objSWbemServices = objSWbemLocator.ConnectServer(strComputer, _
    "root\cimv2", _
     strUser, _
     strPassword, _
     "MS_409", _
     "ntlmdomain:" + strDomain)
Set colSwbemObjectSet = _
    objSWbemServices.ExecQuery("Select * From Win32_Process")
For Each objProcess in colSWbemObjectSet
    Wscript.Echo "Process Name: " & objProcess.Name 
Next

Tout ceci grace à SWbemLocator.

Le WMI est un ensemble d'objet aidant au management du système d'exploitation.
L'exemple ci dessous te montre comment récupérer l'ensemble des processus grâce à l'objet Win32_Process. Mais de la même façon tu peux t'amuser avec d'autres objets.
Dans ton cas, il faudrait utiliser la méthode copy de CIM_LogicalFile (regarde aussi copyex).

Un exemple de code non testé :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
strComputer = "FullComputerName" 
strDomain = "DOMAIN" 
Wscript.StdOut.Write "Please enter your user name:"
strUser = Wscript.StdIn.ReadLine 
Set objPassword = CreateObject("ScriptPW.Password")
Wscript.StdOut.Write "Please enter your password:"
strPassword = objPassword.GetPassword()
 
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objSWbemServices = objSWbemLocator.ConnectServer(strComputer, _
    "root\cimv2", _
     strUser, _
     strPassword, _
     "MS_409", _
     "ntlmdomain:" + strDomain)
Set colItems = objSWbemServices.ExecQuery( _
    "SELECT * FROM CIM_LogicalFile where PATH = '\\temp\\'",,48) 
For Each objItem in colItems 
    Wscript.Echo "-----------------------------------"
    Wscript.Echo "CIM_LogicalFile instance"
    Wscript.Echo "-----------------------------------"
    Wscript.Echo "FileName: " & objItem.FileName
    objItem.Copy("repertoire de destination") 'Attention copy aussi bien les fichiers que les répertoires
Next