Discussion :

[Maja69]

Bonjour,

En affichant les "Informations Système" de mon PC, le nom complet de mon PC est MonNomPrénomgroup.vi et le domaine fr.MonEntreprise.group.vi.
Sous vba excel, je trouve avec les fonctions Environ(USERDOMAIN, COMPUTERNAME ...) ou GetComputerName Lib "kernel32 (plus compliqué que la précédente mais même résultat...) comme nom de PC "MonNomPrénom" sans l'extension "group.vi" et comme domaine "FR".
Je cherche en fait à récupérer "group.vi" car je souhaite diffuser un fichier qui ne pourra être ouvert que par des personnes utilisant un PC de l'entreprise qui ont tous ce nom de domaine en commun "group.vi". Y a t'il une fonction vba plus complète ?
Merci d'avance de votre aide !
Maja69

[AbsolutAlex]

Bonjour,

En adaptant ça . ça va peut être t'aider.

Code :

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

1
2
3
4
5
Set WshNetwork = CreateObject("WScript.NetWork")
 
MsgBox "User Name " & WshNetwork.UserName
MsgBox "Computer Name " & WshNetwork.ComputerName
MsgBox "Domain " & WshNetwork.UserDomain

En gros, ça te donne l'équivalent de la commande "Set" dans l'invite de commande.

Alex

[Maja69]

Merci beaucoup !
J'ai testé mais c'est toujours pareil, j'ai FR comme domaine, au lieu de FR.group.vi ...