Discussion :

[bitou11]

Bonjour,
après de multiples recherches je ne trouve pas ce que je cherche ...

On vient de me demander de faire une application, sous Access, qui, à partir d'une adresse Ip, va aller cherche l'adresse MAC, le numéro de série du PC, le nombre de Mo de mémoire vive etc ... et de stocker tout ça.

Je suis quasiment sûre que ce n'est pas possible avec Access lui-même, mais on sais jamais, c'est pourquoi je vous pose la question.

Je suis ouvert à toutes suggestions.

Merci

[Dolphy35]

Salut,

voici une petite fonction de renvoyant le N° de série du PC + le type de processeur installé + l'espace libre en Mo :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function ListePC() As String
Dim fso As FileSystemObject
Dim svc As Object
Dim oproc
    Set fso = New FileSystemObject
    ListePC = "Numéro de série du Disque dur : " & fso.Drives("c").SerialNumber
    ListePC = ListePC & vbCrLf & "Espace libre : " & (fso.Drives("C").FreeSpace / 1000000) & " Mo"
 
    Set svc = GetObject("winmgmts:root\cimv2")
    For Each oproc In svc.execquery("select * from Win32_Processor ")
        ListePC = ListePC & vbCrLf & oproc.name & " = " & oproc.ProcessorId
    Next
 
    Set fso = Nothing
    Set svc = Nothing
End Function

Appel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Commande0_Click()
 
    MsgBox ListePC
 
End Sub

je t'invite à lire l'excellent tuto de Tofalu :
Manipulation des fichiers en VBA

Sinon tu as un code pour récupérer l'adresse MAC dans la
Comment obtenir l'adresse MAC de la carte réseau ?


Dolphy

[Tofalu]

Je pense que le plus simple serait de déployer un petit fichier batch sur chaque poste et qui ira inscrire ses informations dans un répertoire sur un serveur. Access se chargera alors de parcourir ce dossier. Sinon, je ne vois pas trop comment depuis Access récupérer la taille de la mémoire vive d'un pc distant

[bitou11]

Merci beaucoup pour vos réponses.

Je vais de ce pas m'orienter vers cette direction.

Merci.

Bitou