|
Below is an example in my environment: **************************************************************************** If IsMember("GROUPNAME") Then MapDrive "G:", "\\SERVER\SHARE$" (I hide all my user shares) MapDrive "P:", "\\SERVER\SHARE-2$" gDrive ="G:\" pDrive ="P:\" oShell.NameSpace(gDrive).Self.Name = " RENAME Share" (Rename the hidden share) oShell.NameSpace(pDrive).Self.Name = "RENAME Share" Prn.AddWindowsPrinterConnection "\\Server\PrinterName" (Map the group to a network printer) Prn.SetDefaultPrinter "\\Server\PrinterName" (Set the default printer for a group/OU) End If ********************************************************************************************** Let me know if someone wants the full script. -Z.V. Active Directory wrote: List info : http://www.activedir.org/List.aspx List FAQ : http://www.activedir.org/ListFAQ.aspx List archive: http://www.mail-archive.com/activedir%40mail.activedir.org/ |
- RE: [ActiveDir] Help with VB script to map printers Active Directory
- Re: [ActiveDir] Help with VB script to map print... Za Vue
- RE: [ActiveDir] Help with VB script to map print... Rich Milburn
- RE: [ActiveDir] Help with VB script to map print... Ulf B. Simon-Weidner
