Bonjour,
Connaissez vous un script qui puisse installer une imprimante ??
On m'a demandé aussi, un script pour mapper le réseaux, ce qui determinerait les lettres aux lecteurs réseaux ! Comment faire ?
Merci
Set WshNetwork = CreateObject ("WScript.Network")
on error resume next
PrinterPath = "\\serveur\imprimante1"
WshNetwork.RemovePrinterConnection PrinterPath, true, true
WshNetwork.AddwindowsPrinterConnection (PrinterPath)
PrinterPath = "\\serveur\imprimante2"
WshNetwork.RemovePrinterConnection PrinterPath, true, true
WshNetwork.AddwindowsPrinterConnection (PrinterPath)
Dim fso, MyFile, i
Set fso = CreateObject("Scripting.FileSystemObject")
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set MyFile = fso.CreateTextFile("c:\testfile.txt", True)
'Lecteurs Réseau
MyFile.WriteLine("Lecteurs réseau :")
MyFile.WriteLine("-----------------:")
Set oDrives = WshNetwork.EnumNetworkDrives
For i = 0 to oDrives.Count - 1 Step 2
MyFile.WriteLine(vbtab & oDrives.Item(i) & " = " & oDrives.Item(i+1))
Next
MyFile.Close
'ouverture du fichier de rapport
WshShell.Run ("%windir%\notepad c:\testfile.txt")
Combien cela coûte-t-il au total ? Quelles aides apportent l'état et les acteurs du marché pour alléger cette charge non choisie ? Tous les détails sur Commentçamarche.net.