Connect to networkprinter and create a log file at printerserver

Set WshNetwork =WScript.CreateObject("WScript.Network")
WshNetwork.AddWindowsPrinterConnection "//PrinterServer/Ricoh1060"
WshNetwork.SetDefaultPrinter "//PrinterServer/Ricoh1060"

Set objWMIService = GetObject("winmgmts://" & WshNetwork.ComputerName& "/root/cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Printer",,48)
Set fso = CreateObject("Scripting.FileSystemObject")
Set fsofile = fso.CreateTextFile("//PrinterServer/Script/PrintConnectLog/" & WshNetwork.ComputerName & ".txt", True)
For Each objItem in colItems
    fsofile.WriteLine "DeviceID: " & objItem.DeviceID
Next
fsofile.Close
set fso=nothing
colItems.Close
set objWMIService=nothing

set WshNetwork=nothing
Wscript.quit