Hi people, need some help/pointers please
we have undergone a major network upgrade in which we have lost our DC's and print server (now managed offsite, we have a local RODC, with no access) A print server has been provided which allows clients to connect and access various shared printers. Using win 7 non domain connected machines, we can browse the UNC path: \\server1\printername in which the user is prompted to provide their credentials. Once authenicated, printer is connected and can be used.
Because we are in the situation where we now have over 300 non domain connected netbooks, running windows 7 pro, we have had to write our own scripts (vbs) to connect users home drive, shared drive, set internet settings (proxy etc) and then map network drives.
All tested was carried out on a machine that various print drivers installed (checked through print management --> all drivers) the script is then run inwhich the user provides their logon account, password and so on. Drives are mapped and printer connections are est. When we moved the script to another machine, used the same test user and ran the script, the printers did not get mapped. We checked the the print management driver location and the printers where not listed. We have checked random machines and some have the drivers and others dont. Basically we dont want to manually install 10 printers for over 300 devices... Hence the reason for the logon script.
Sub that i am using is:
sub sbMapPrinter(strLogonName, strPassword, strPrinterDomain, arrPrinterList, strDomainName)
'On Error Resume next
Dim i
Set objNetwork = CreateObject("WScript.Network")
WScript.Echo "Please wait...Connecting printers. Once connected you will be informed. Process can take up to 1 minute to complete. Click OK to cont."
For i = 0 To UBound(arrPrinterList)
objNetwork.AddWindowsPrinterConnection "" & Trim(strPrinterDomain) & "" & arrPrinterList(i) & "","" & strDomainName & "" & strLogonName & "," & Trim(strPassword) & ""
Next
If Err.Number <> 0 Then
WScript.Echo "One or more printers have not been connected."
End If
Set objNetwork = Nothing
end sub
---------------------------------------------------------------
Is there a way to script install the printer drivers? so lets say i have all the print drivers and i want to load these onto the 300 machines? what would be the best way to do this? anyone have any VBS scripts out there to do this?
Thanks in advance
we have undergone a major network upgrade in which we have lost our DC's and print server (now managed offsite, we have a local RODC, with no access) A print server has been provided which allows clients to connect and access various shared printers. Using win 7 non domain connected machines, we can browse the UNC path: \\server1\printername in which the user is prompted to provide their credentials. Once authenicated, printer is connected and can be used.
Because we are in the situation where we now have over 300 non domain connected netbooks, running windows 7 pro, we have had to write our own scripts (vbs) to connect users home drive, shared drive, set internet settings (proxy etc) and then map network drives.
All tested was carried out on a machine that various print drivers installed (checked through print management --> all drivers) the script is then run inwhich the user provides their logon account, password and so on. Drives are mapped and printer connections are est. When we moved the script to another machine, used the same test user and ran the script, the printers did not get mapped. We checked the the print management driver location and the printers where not listed. We have checked random machines and some have the drivers and others dont. Basically we dont want to manually install 10 printers for over 300 devices... Hence the reason for the logon script.
Sub that i am using is:
sub sbMapPrinter(strLogonName, strPassword, strPrinterDomain, arrPrinterList, strDomainName)
'On Error Resume next
Dim i
Set objNetwork = CreateObject("WScript.Network")
WScript.Echo "Please wait...Connecting printers. Once connected you will be informed. Process can take up to 1 minute to complete. Click OK to cont."
For i = 0 To UBound(arrPrinterList)
objNetwork.AddWindowsPrinterConnection "" & Trim(strPrinterDomain) & "" & arrPrinterList(i) & "","" & strDomainName & "" & strLogonName & "," & Trim(strPassword) & ""
Next
If Err.Number <> 0 Then
WScript.Echo "One or more printers have not been connected."
End If
Set objNetwork = Nothing
end sub
---------------------------------------------------------------
Is there a way to script install the printer drivers? so lets say i have all the print drivers and i want to load these onto the 300 machines? what would be the best way to do this? anyone have any VBS scripts out there to do this?
Thanks in advance