On Error Resume Next
Dim oNetwork, objNetwork
Set oNetwork = CreateObject("WScript.Network") 
Set objNetwork = WScript.CreateObject("WScript.Network") 

oNetwork.AddWindowsPrinterConnection "\\Brhs-main_serv\BUSLAB_TEACHER"
oNetwork.AddWindowsPrinterConnection "\\Brhs-main_serv\BUSLAB_FRONT"
oNetwork.AddWindowsPrinterConnection "\\Brhs-main_serv\BUSLAB_BACK"
oNetwork.AddWindowsPrinterConnection "\\10.21.43.5\buslab_teacherv"
oNetwork.AddWindowsPrinterConnection "\\10.21.43.5\buslab_frontv"
oNetwork.AddWindowsPrinterConnection "\\10.21.43.5\buslab_backv"