Avoir la taille d'un fichier en dos

Bonjour,

J'ai un problème pour récupérer la taille d'un fichier sur un pc a distance.

Le truc mon code pour me connecter sur le pc distant seul pas de problème
De même le code pour récupère la taille d'un fichier si je le lance pour avoir la taille d'un fichier sur mon pc pas de problème

Mais quand je veux avoir la taille d'un fichier sur un pc distant pas possible

Voici mon code et merci d'avance je vois pas le problème !!

echo off
cls

Set P1=0
Set PCDistant=%1
Set CheminFichierResultat=ListeHosts.Log
Set Partage=\\%PCDistant%\D$
Set Dossier=%Partage%\Dossier
Set Fichier=test.frm

Set User=%PCDistant%\admin
Set MdP=admin

Echo Travail de %PCDistant%
Title %PCDistant%

:Action
@Echo.Connexion
net use %Partage% /user:%User% %Mdp%
IF not %ERRORLEVEL%==0 GOTO Erreur

@Echo.Taille
For /R %Dossier% %%I In (*%Fichier%*) Do Set /A P1=!P1!+%%~ZI/1024
IF not %ERRORLEVEL%==0 GOTO Erreur
ECHO %PCDistant%; %Fichier%; contient %P1% Koctets >> %CheminFichierResultat%

:Deconnexion
@Echo.Deconnexion
net use %Partage% /del

:Fin
exit

:Erreur
ECHO %PCDistant%;Probleme_Connexion >> %CheminFichierResultat%
rd /Q .\%PCDistant%
GOTO Deconnexion