Récupération nom de serveur

Bonjour,

Je voudrai dans le code VBA de mon fichier Access récupérer le nom du serveur sur lequel se trouve mon fichier. J'ai trouvé l'instruction Environ$("PARAMETER") qui permet de récupérer facilement les variables d'environnement.

Le seul problème est que à la place de PARAMETER je ne sais pas quoi mettre pour récupérer le nom du serveur... J'ai bien essayé SERVERNAME ou encore SERVER_NAME mais queudal !

Vous avez une idée ?

Merci !

Je cherche toujours... C'est que ce n'est pas possible ?

 Bonjour,

Je ne sais pas si cette réponse va te dépanner.
Comment fais-tu pour ouvrir ton fichier ??? Quel est son chemin ???

'Inventaire lecteurs
   Dim fso, d, dc, s, n
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set dc = fso.Drives
   For Each d in dc
      n = ""
      s = s & d.DriveLetter & " - "
      Select Case d.DriveType
      Case 0: t = "Inconnu"
      Case 1: t = " Disk Amovible"
      Case 2: t = " Disk Fixe" & " => Espace disponible: " & d.AvailableSpace/1024 & " Koctets"
      Case 3: t = " Lecteur Réseau"
      Case 4: t = " Lecteur CD-ROM"
      Case 5: t = " Disk virtuel"
   End Select
      s = s & n & t & vbCrLf
   Next

'Inventaire lecteurs
Set objSWbemServices = GetObject("winmgmts:")
Set colSWbemObjectSet = objSWbemServices.InstancesOf("Win32_LogicalDisk")
Set colSWbemObjectSet = GetObject("winmgmts:").InstancesOf("Win32_LogicalDisk")
For Each objDisk In GetObject("winmgmts:").InstancesOf("Win32_LogicalDisk")
    q =  q & vbCrLf& objDisk.DeviceID
Next

MsgBox "1ère méthode - Inventaire des Disques" &vbCrLf&vbCrLf& s &vbCrLf&_
       "2ème méthode - Inventaire des Disques" &vbCrLf&vbCrLf& q
Set fso = Nothing
Set objSWbemServices = Nothing

jean-marc