strComputer = "NomOrdinateurDIstant"
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colFiles = objWMIService. _
    ExecQuery("Select * From CIM_DataFile Where Name = 'C:\\Scripts\\Test.vbs'")

If colFiles.Count = 0 Then
    Wscript.Echo "Le fichier n'existe pas sur l'ordinateur distant."
Else
    Wscript.Echo "Le fichier existe."
End If