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

oNetwork.AddWindowsPrinterConnection "\\10.21.43.10\Ricoh_HS-MS"