Api et VB Script

Question

Dans un fichier VBS je veux utiliser une api exemple

Public Declare Function GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, lpSectorsPerCluster As Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, lpTtoalNumberOfClusters As Long) As Long


GetDiskFreeSpace "C:", Sectors, Bytes, Freec, Totalc


msgbox " Sectors par Cluster:" + Str$(Sector)

Il me donne une erreur de compilation sur la ligne Public D&#233;clare Function au niveau de fonction 

J'utilise cscript monprog.vbs.

Merci &#224; celui qui pourra me r&#233;pondre

labout

NHenry · Answer

VBS accepte les API? G savais pas.

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en priv&#233;
NH

Renfield · Answer

On ne peux pas....

VbScript sais jouer avec les objets COM, c'est deja ça ^^

appelle un objet FSO (FileSystemObject) tu devrais pouvoir effectuer la même tache que ton API

cs_labout · Answer

Renfield, merci de ta r&#233;ponse on ne peut pas. L'api que j'avais donn&#233; n'&#233;tait qu'un exemple pris au hasard par les milliers de fonctions.
Par contre j'ai vu ta source sur le listage des fichiers 
GetObject("winmgmts:" _ 
& "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2") 
et je voulais y arriver par ce biais.

labout

Api et VB Script

3 réponses

Discussions similaires