Bonjour ,
Je souhaite prendre certaines informations d'un fichier ce trouvant sr le réseau .
Voici ma fonction
Function Fileinf(InfoFile)
strComputer = "."
Dim Yr,Dj,Mn
Dim Crd,Lmo
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
Set colFiles = objWMIService.ExecQuery _
("Select * from CIM_Datafile Where name ='"&InfoFile&"'" )
For Each objFile in colFiles
CDr = objFile.CreationDate
Lmo = objFile.LastModified
Yr =Left(Lmo,4)
Dj =Mid(Lmo,5,2)
Mn =Mid(Lmo,7,2)
WScript.echo CDr
WScript.echo Yr&"\"&Dj&"\"&Mn
Next
End Function
Puis je lance la fonction
FileInf "\\\\nomduserver\\nomdushare\\test.exe"
mais il ne trouve pas le fichier
es-ce qu'il y a une raison a cela ?
si je met un fichier local ça marche
Bien à vous
JuVeNaL