1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133
| Dim strComputerName
Dim WshShellObj
Dim WshProcessEnv
Dim WshComputername
Set WshShellObj = WScript.CreateObject("WScript.Shell")
Set WshProcessEnv = WshShellObj.Environment("PROCESS")
WshComputername = GetComputerName
Private Function GetComputerName()
Dim oNetwork
On Error Resume Next
Set oNetwork = CreateObject("WScript.Network")
GetComputerName = oNetwork.ComputerName
Set oNetwork = Nothing
End Function
Dim net
Set net= CreateObject("WScript.Network")
Dim oWshNetwork
Dim sNomUtilisateur
Set oWshNetwork = CreateObject("WScript.Network")
sNomUtilisateur = oWshNetwork.UserName
If user = admininstrateur Then
net.AddWindowsPrinterConnection "\\dirennantes\IR3100CPS3"
net.AddWindowsPrinterConnection "\\dirennantes\IR3100CPS4"
net.AddWindowsPrinterConnection "\\dirennantes\hydrohp3200"
net.AddWindowsPrinterConnection "\\dirennantes\LXC910PCL2"
net.AddWindowsPrinterConnection "\\dirennantes\LXC910PCL5"
net.AddWindowsPrinterConnection "\\dirennantes\LXC912PCLSEMA"
net.AddWindowsPrinterConnection "\\dirennantes\LXW820PCLSEMA"
Else
IF
(Mid(%computerName%, 1, 1) = S then
net.AddWindowsPrinterConnection "\\dirennantes\LXC912PCLSEMA"
net.AddWindowsPrinterConnection «\\dirennantes\LXW820PCLSEMA»
Else IF
(Mid(%computerName%, 1, 1) = H then
net.AddWindowsPrinterConnection \\dirennantes\hydrohp3200
net.AddWindowsPrinterConnection "\\dirennantes\faxhydro"
Else IF
(Mid(%computerName%, 0, 1) = P then
net.AddWindowsPrinterConnection "\\dirennantes\IR3100CPS3"
net.AddWindowsPrinterConnection "\\dirennantes\IR3100CPS4"
net.AddWindowsPrinterConnection "\\dirennantes\hydrohp3200"
net.AddWindowsPrinterConnection "\\dirennantes\LXC910PCL2"
net.AddWindowsPrinterConnection "\\dirennantes\LXC910PCL5"
net.AddWindowsPrinterConnection "\\dirennantes\LXC912PCLSEMA"
net.AddWindowsPrinterConnection "\\dirennantes\LXW820PCLSEMA"
Else If
(Mid(%computerName%, 0, 1) = S then
net.AddWindowsPrinterConnection "\\dirennantes\IR3100CPS3"
net.AddWindowsPrinterConnection "\\dirennantes\IR3100CPS4"
net.AddWindowsPrinterConnection "\\dirennantes\hydrohp3200"
net.AddWindowsPrinterConnection "\\dirennantes\LXC910PCL2"
net.AddWindowsPrinterConnection "\\dirennantes\LXC910PCL5"
net.AddWindowsPrinterConnection "\\dirennantes\LXC912PCLSEMA"
net.AddWindowsPrinterConnection "\\dirennantes\LXW820PCLSEMA"
else if
(Mid(%computerName%, 1, 2) = M2 then
net.AddWindowsPrinterConnection "\\dirennantes\LXC910PCL2"
net.AddWindowsPrinterConnection "\\dirennantes\IR3100CPS3"
Else if
(Mid(%computerName%, 1, 2) = M3 then
net.AddWindowsPrinterConnection \\dirennantes\IR3100CPS4
net.AddWindowsPrinterConnection "\\dirennantes\IR3100CPS3"
Else if
(Mid(%computerName%, 1, 2) = M4 then
net.AddWindowsPrinterConnection \\dirennantes\IR3100CPS4
net.AddWindowsPrinterConnection "\\dirennantes\IR3100CPS3"
Else if
(Mid(%computerName%, 1, 2) = M5 then
net.AddWindowsPrinterConnection \\dirennantes\IR3100CPS4
net.AddWindowsPrinterConnection \\dirennantes\LXC910PCL5
End if
End |
Partager