Add/Remove Printer by VB Script
On Error Resume Next ' ใส่เพื่อบางครั้งผู้ใช้งานไม่สามารถเพิ่มเครื่องพิมพ์ได้ตามสิทธิ์
Set WshNetwork = CreateObject("WScript.Network") ' ประกาศตัวแปรที่ใช้งาน
' คำสั่งใช้ในการเพิ่มเครื่องพิมพ์ตามที่แชร์เอาไว้ที่ Server
WshNetwork.AddWindowsPrinterConnection "\\print-server\printer-name"
' คำสั่งใช้ในการลบเครื่องพิมพ์ออก
WshNetwork.RemovePrinterConnection "\\print-server\printer-name"
' คำสั่งใช้ในการตั้งเครื่องพิมพ์ตั้งต้น
WshNetwork.SetDefaultPrinter "\\print-server\printer-name"
WScript.Quit
** หลังจากนั้นทำการเซฟไฟล์ให้เป็น .vbs แล้วเอาไปใช้งานใน Script Logon ของ Active Directory ได้เลย คร่าวนี้ผูุ้ใช้งานคนไหน Logon แล้วก็จะได้ Printer ตามที่เราตั้งเอาไว้ทันทีเลยจ้า
** มีเงื่อนไขนิดนึง ถ้า Active Directory เป็น Windows Server 2003 ที่เครื่อง Client จำเป็นต้องติดตั้ง Driver ก่อนครั้งนึง เพื่อให้ Windows รู้จักเครื่องพิมพ์นั้นๆ แต่ถ้าเป็น Windows Server 2008 R2 สามารถตั้งค่าให้ AD ส่ง Driver ไปตาม Policy ได้ด้วยจ้า
Set WshNetwork = CreateObject("WScript.Network") ' ประกาศตัวแปรที่ใช้งาน
' คำสั่งใช้ในการเพิ่มเครื่องพิมพ์ตามที่แชร์เอาไว้ที่ Server
WshNetwork.AddWindowsPrinterConnection "\\print-server\printer-name"
' คำสั่งใช้ในการลบเครื่องพิมพ์ออก
WshNetwork.RemovePrinterConnection "\\print-server\printer-name"
' คำสั่งใช้ในการตั้งเครื่องพิมพ์ตั้งต้น
WshNetwork.SetDefaultPrinter "\\print-server\printer-name"
WScript.Quit
** หลังจากนั้นทำการเซฟไฟล์ให้เป็น .vbs แล้วเอาไปใช้งานใน Script Logon ของ Active Directory ได้เลย คร่าวนี้ผูุ้ใช้งานคนไหน Logon แล้วก็จะได้ Printer ตามที่เราตั้งเอาไว้ทันทีเลยจ้า
** มีเงื่อนไขนิดนึง ถ้า Active Directory เป็น Windows Server 2003 ที่เครื่อง Client จำเป็นต้องติดตั้ง Driver ก่อนครั้งนึง เพื่อให้ Windows รู้จักเครื่องพิมพ์นั้นๆ แต่ถ้าเป็น Windows Server 2008 R2 สามารถตั้งค่าให้ AD ส่ง Driver ไปตาม Policy ได้ด้วยจ้า
Comments
Post a Comment