<\/DIV>\n
Here\u2019s the script:<\/P>
Set objSysInfo = CreateObject(“ADSystemInfo”)\nstrName = objSysInfo.ComputerName<\/p>\narrComputerName = Split(strName, “,”)\narrOU = Split(arrComputerName(1), “=”)\nstrComputerOU = arrOU(1)<\/p>\n
Set objNetwork = CreateObject(“WScript.Network”)<\/p>\n
Select Case strComputerOU\n Case “Client”\n objNetwork.AddWindowsPrinterConnection “\\\\PrintServer1\\ClientPrinter”\n objNetwork.SetDefaultPrinter “\\\\PrintServer1\\ClientPrinter”\n Case “Finance”\n objNetwork.AddWindowsPrinterConnection “\\\\PrintServer2\\FinancePrinter”\n objNetwork.SetDefaultPrinter “\\\\PrintServer2\\FinancePrinter”\n Case “Human Resources”\n objNetwork.AddWindowsPrinterConnection “\\\\PrintServer3\\HRPrinter”\n objNetwork.SetDefaultPrinter “\\\\PrintServer3\\HRPrinter”\n Case “Research”\n objNetwork.AddWindowsPrinterConnection “\\\\PrintServer4\\ResearchPrinter”\n objNetwork.SetDefaultPrinter “\\\\PrintServer4\\ResearchPrinter”\n Case Else\n objNetwork.AddWindowsPrinterConnection “\\\\PrintServer5\\GenericPrinter”\n objNetwork.SetDefaultPrinter “\\\\PrintServer5\\GenericPrinter”\nEnd Select\n<\/PRE>\n
As you can see, we start out by creating an instance of the ADSystemInfo <\/B>object, an object that returns a lot of useful information about the logged-on user, his or her domain, and the local computer. And yes, we are talking the local<\/I> computer; the ADSystemInfo object cannot be created on a remote computer. That means the preceding script can be run only on the local machine. Which, among other things, makes the code a good candidate for inclusion in a logon script.<\/P>\n
After creating the ADSystemInfo object we next assign the value of the ComputerName<\/B> property to a variable named strName:<\/P>strName = objSysInfo.ComputerName\n<\/PRE>\nIf you aren\u2019t familiar with the ADSystemInfo object, we should note that the ComputerName property returns the distinguished name of the local computer; that\u2019s going to be a value similar to this one:<\/P>
CN=ATL-WS-01,OU=Research,OU=North America,DC=fabrikam,DC=com\n<\/PRE>\nIf you take a moment to look over this value, you\u2019ll see that the OU where the computer account resides is embedded within the distinguished name: the first item in the string contains the computer\u2019s CN (CN=ATL-WS-01) and the second item contains the computer\u2019s OU (OU=Research). That\u2019s great, except for one thing: how do we extract the OU from the distinguished name?<\/P>\n
Here\u2019s one way:<\/P>
arrComputerName = Split(strName, “,”)\narrOU = Split(arrComputerName(1), “=”)\nstrComputerOU = arrOU(1)\n<\/PRE>\nWhat are we doing here? Well, in the first line we\u2019re using the Split<\/B> function to transform the computer\u2019s distinguished name into an array; by splitting the value on the comma we end up with an array containing the following elements:<\/P>\n\n\n\n| \u2022<\/TD>\n | \n CN=ATL-WS-01<\/P><\/TD><\/TR>\n |
\n| \u2022<\/TD>\n | \n OU=Research<\/P><\/TD><\/TR>\n |
\n| \u2022<\/TD>\n | \n OU=North America<\/P><\/TD><\/TR>\n |
\n| \u2022<\/TD>\n | \n DC=fabrikam<\/P><\/TD><\/TR>\n |
\n| \u2022<\/TD>\n | \n DC=com<\/P><\/TD><\/TR><\/TBODY><\/TABLE>\n As you can see, the second item in the array (an item which has an index number of 1) is the information we\u2019re looking for. Unfortunately, though, it\u2019s not exactly in the desired format; we\u2019d prefer to have the name Research rather than the value OU=Research. So now<\/I> what do we do?<\/P>\n Well, what we do now is use the Split function once more, this time to split the value of array item 1, and this time using the equals sign as the character to split on. That\u2019s what our second line of code does:<\/P> arrOU = Split(arrComputerName(1), “=”)\n<\/PRE>\nUpon execution, that\u2019s going to give us another array (an array named arrOU) that includes these<\/I> items:<\/P>\n\n\n\n| \u2022<\/TD>\n | \n OU<\/P><\/TD><\/TR>\n | \n| \u2022<\/TD>\n | \n Research<\/P><\/TD><\/TR><\/TBODY><\/TABLE>\n And yes, you\u2019re way ahead of us: the second item in this array (the item with an index number of 1) is the very value we\u2019re looking for. Consequently, we assign the value of that item to a variable named strComputerOU:<\/P> strComputerOU = arrOU(1)\n<\/PRE>\nNow that we know the computer\u2019s OU we can create an instance of the Wscript.Network<\/B> object (used for mapping printers); after that we can then set up a Select Case statement and map a printer based on the OU name. That\u2019s why we have code similar to this:<\/P>Select Case strComputerOU\n Case “Client”\n objNetwork.AddWindowsPrinterConnection “\\\\PrintServer1\\ClientPrinter”\n objNetwork.SetDefaultPrinter “\\\\PrintServer1\\ClientPrinter”\n<\/PRE>\nThis block of code should be self-explanatory. If the value of strComputerOU is equal to Client<\/I> (that is, if the computer account resides in the Client OU) we use the AddWindowsPrinterConnection<\/B> method to map a printer to \\\\PrinterServer1\\ClientPrinter; once the printer has been added we then call the SetDefaultPrinter<\/B> method to make this the default printer. <\/P>\n Ah, but what if the computer name isn\u2019t<\/I> equal to Client<\/I>? That\u2019s fine; we simply check the next value in the Select Case block. If the OU name can\u2019t be found at all, then we default to the Case Else<\/B> section and map a \u201cgeneric\u201d printer instead:<\/P>Case Else\n objNetwork.AddWindowsPrinterConnection “\\\\PrintServer5\\GenericPrinter”\n objNetwork.SetDefaultPrinter “\\\\PrintServer5\\GenericPrinter”\n<\/PRE>\nBelieve it or not, that\u2019s all we have to do.<\/P>\n We hope that gets you started, TG. In the meantime, we\u2019d like to apologize once more to the Scripting Editor. As part of his penance, the Scripting Editor suggested that the Scripting Guy who writes this column wash her car and clean her office. As a gesture of good faith, we\u2019ve decided to go along with that: the Scripting Guy who writes this column will wash the Scripting Editor\u2019s car the next time he washes his own car, and he will clean her office the next he cleans his<\/I> office. Based on current trends, she can expect to get her car washed sometime in early 2013. As for cleaning the office, well, let\u2019s put it this way: let\u2019s hope that she eats right and gets plenty of exercise. Otherwise, she probably won\u2019t be around long enough to experience a newly-cleaned office.<\/P><\/p>\n","protected":false},"excerpt":{"rendered":" Hey, Scripting Guy! How can I map a printer based on the local computer\u2019s OU?— TG Hey, TG. Before we begin, we\u2019d like to offer a sincere and heartfelt apology to the Scripting Editor. In a recent column, we made it sound as if, in her words, the Scripting Editor was a \u201cditzy teenager.\u201d That, […]<\/p>\n","protected":false},"author":595,"featured_media":87096,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_acf_changed":false,"footnotes":""},"categories":[1],"tags":[7,445,43,404,3,5],"class_list":["post-64353","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-scripting","tag-active-directory","tag-client-side-printing","tag-ous","tag-printing","tag-scripting-guy","tag-vbscript"],"acf":[],"blog_post_summary":" Hey, Scripting Guy! How can I map a printer based on the local computer\u2019s OU?— TG Hey, TG. Before we begin, we\u2019d like to offer a sincere and heartfelt apology to the Scripting Editor. In a recent column, we made it sound as if, in her words, the Scripting Editor was a \u201cditzy teenager.\u201d That, […]<\/p>\n","_links":{"self":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/64353","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/users\/595"}],"replies":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/comments?post=64353"}],"version-history":[{"count":0,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/posts\/64353\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/media\/87096"}],"wp:attachment":[{"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/media?parent=64353"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/categories?post=64353"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/scripting\/wp-json\/wp\/v2\/tags?post=64353"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}} | |
![\"Hey,](\"https:\/\/devblogs.microsoft.com\/wp-content\/uploads\/sites\/29\/2019\/02\/q-for-powertip.jpg\" "\\"Hey,")
\n![\"Spacer\"](\"https:\/\/devblogs.microsoft.com\/scripting\/wp-content\/uploads\/sites\/29\/2019\/05\/spacer.gif\")
![\"Hey,](\"https:\/\/devblogs.microsoft.com\/wp-content\/uploads\/sites\/29\/2019\/02\/a-for-powertip.jpg\" "\\"Hey,")
![\"Script](\"http:\/\/img.microsoft.com\/library\/media\/1033\/technet\/images\/scriptcenter\/ad.jpg\" "\\"Script")
<\/A> \n