code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
| Set WshNetwork = CreateObject("WScript.Network")
set WshShell = CreateObject("WScript.Shell")
Set oPrinters = WshNetwork.EnumPrinterConnections
Dim WshShell, WshNetwork, printthere, iprinter
iprinter = "no"
printthere = "\\server\Canonmp1"
For i = 0 to oPrinters.Count - 1 Step 2
if oPrinters.Item(i+1) = printthere THEN iprinter = "yes"
Next
IF iprinter = "yes" THEN
WScript.Quit
ELSEIF iprinter = "no" THEN
WshNetwork.AddWindowsPrinterConnection Printthere
WshNetwork.SetDefaultPrinter Printthere
END if |
Dit heb ik nu, maar zodra ik dit script uitvoer dan krijg ik te zien dat de toegang is geweigerd. Ik weet dat ik de gebruikersnaam en wachtwoord voor de printer in moet voeren maar hoe ik dit nu in het script invoeg zodat dit automatisch gebeurt?
Misschien kan iemand van jullie me dit uitleggen