| | auteur : argyronet | | VBS |
Set wshNetwork = CreateObject("Wscript.Network")
MsgBox wshNetwork.ComputerName
|
|
| | auteur : Jean-Marc Rabilloud | | VBS |
Set wshNetwork = CreateObject("Wscript.Network")
MsgBox wshNetwork.UserName
|
|
| | auteur : ThierryAIM | | VBS |
Set wshNetwork = CreateObject("Wscript.Network")
MsgBox wshNetwork.UserDomain
|
|
| | auteur : bbil | | VBS |
Set WshNetwork = WScript.CreateObject("WScript.Network")
WshNetwork.MapNetworkDrive "R:","\\NOM_ORDINATEUR\REPERTOIRE",false,"NOM_UTILISATEUR","MOT_DE_PASSE"
|
|
| | auteur : ThierryAIM | | VBS |
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set oPrinters = WshNetwork.EnumPrinterConnections
For i = 0 to oPrinters.Count - 1 Step 2
MapPrinters = MapPrinters & "Port : " & oPrinters.Item(i) & " = " & oPrinters.Item(i+1) & vbCr
Next
MsgBox MapPrinters,,"Mappage Imprimantes Réseau"
|
|
Consultez les autres F.A.Q's
Les sources présentés sur cette pages sont libre de droits,
et vous pouvez les utiliser à votre convenance. Par contre cette page de présentation de ces sources constitue une oeuvre intellectuelle protégée par les droits d'auteurs.
Copyright ©2008
Developpez LLC. Tout droits réservés Developpez LLC.
Aucune reproduction, même partielle, ne peut être faite de ce site et de
l'ensemble de son contenu : textes, documents et images sans l'autorisation
expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à 3 ans
de prison et jusqu'à 300 000 E de dommages et intérets.
Cette page est déposée à la SACD.
|
