| Nom |
WshNetwork |
| Type |
Objet |
| Description |
Expose le réseau Microsoft Windows, facilitant la connexion et la déconnexion des lecteurs et des imprimantes distants. |
Propriétés :
| Propriété |
Description |
| object.ComputerName |
Renvoie le nom de l'ordinateur. |
| object.UserDomain |
Renvoie le domaine de l'utilisateur. |
| object.UserName |
Renvoie le nom de l'utilisateur. |
Application :
Le code suivant affiche le nom du domaine, le nom de l'ordinateur et le nom de l'utilisateur de la machine courante, ainsi que les informations de mappage réseau des unités et des imprimantes :
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set oDrives = WshNetwork.EnumNetworkDrives
Set oPrinters = WshNetwork.EnumPrinterConnections
WScript.Echo "Domaine = " & WshNetwork.UserDomain
WScript.Echo "Nom ordinateur = " & WshNetwork.ComputerName
WScript.Echo "Nom utilisateur = " & WshNetwork.UserName
WScript.Echo
WScript.Echo "Mappages unités de réseau :"
For i = 0 to oDrives.Count - 1 Step 2
WScript.Echo "Unité " & oDrives.Item(i) & " = " & oDrives.Item(i+1)
Next
WScript.Echo
WScript.Echo "Mappage imprimantes réseau :"
For i = 0 to oPrinters.Count - 1 Step 2
WScript.Echo "Port " & oPrinters.Item(i) & " = " & oPrinters.Item(i+1)
Next
|