 Loading |
|
Loading |
| VBScript |
| JavaScript |
| Powershell |
Search Options: Update Printer Locations
|
||
|
' Description: Uses ADSI to update the location attribute for all printers in a specified OU.
Set objOU = GetObject("LDAP://OU=Finance, DC=fabrikam, DC=com") objOU.Filter = Array("printqueue") For Each objPrintQueue In objOU strNewLocation = "Redmond/" & objPrintQueue.Location objPrintQueue.Put "Location" , strNewLocation objPrintQueue.SetInfo Next | ||
© 2008 - 2013 Boris Toll :: Scripts available: 6.481 :: :: scriptbox.toll.at :: :: powered by www.toll.at :: | ||
