Valide sous UNIX et Windows
La fonction CreateMIFFile crée un fichier MIF.
Format de la fonction :
CreateMIFFile(Filename as string, Name as string, Description as string) as integer
Indique le nom du fichier MIF.
Indique le nom du composant à stocker dans le fichier MIF.
Indique la description à stocker dans le fichier MIF.
La valeur renvoyée par la fonction est un entier.
Exemple :
Cet exemple stocke le répertoire en cours sur C: dans un fichier MIF, avec l'espace disque disponible. Il est stocké dans le répertoire Workstation. Cet exemple fonctionne uniquement si CA Asset Management est installé.
Dim Dir as String Dim DriveFree as Integer 'Obtenir le répertoire Dir = GetDirectory(3) DriveFree = GetDiskFreeMB(3) 'Créer le fichier .MIF CreateMIFFile(ComputerPath+"Disk.MIF","Inventaire de mon disque ","","") CreateMIFGroup(ComputerPath+"Disk.MIF","Infos disque","Informations sur le disque","AMClass") CreateMIFString(ComputerPath+"Disk.MIF","Info disque","Répertoire en cours",Dir,"Nom du répertoire") CreateMIFInteger(ComputerPath+"Disk.MIF","Infos disque","Libre en Mo",DriveFree,"Mo libres")
|
Copyright © 2014 CA Technologies.
Tous droits réservés.
|
|