'Author: Paul Lock
'Date: Aug 07
'region Script Settings
'<settings><scriptpackager><process>cscript.exe</process>
'<arguments></arguments>
'<extractdir>%TEMP%</extractdir>
'<outputdir>\\jma.local\NETLOGON</outputdir>
'<files></files>
'<usedefaulticon>True</usedefaulticon>
'<icon></icon>
'<showinsystray>True</showinsystray>
'<tooltip></tooltip>
'<altcreds>False</altcreds>
'<efs>True</efs>
'<ntfs>True</ntfs>
'<local>False</local>
'<username></username>
'<domain></domain>
'<abortonfail>True</abortonfail>
'<product></product>
'<internalname></internalname>
'<version>1.0.0.1</version>
'<versionstring></versionstring>
'<description></description>
'<comments></comments>
'<company></company>
'</scriptpackager>
'</settings>
'
'endregion


On Error Resume Next

'Connects printers by workstations OU. Beware CASE sensitive OU names

Set objWshNetwork = CreateObject("WScript.Network")

'Delete all existing printer connections
Set oPrinters = objwshNetwork.EnumPrinterConnections

For i = 0 To oPrinters.Count - 1 Step 2
	'WScript.Echo oPrinters.Item(i+1)
	objWshNetwork.RemovePrinterConnection oPrinters.Item(i+1), True, True
Next



Set objAdsSystemInfo = CreateObject("adsysteminfo")
Set objComputerName = GetObject("LDAP://" & objAdsSystemInfo.ComputerName)
Set objOU = GetObject(objComputerName.Parent)
strOU = Replace(objOU.Name,"OU=","")

'wscript.echo strOU

Select Case strOU
 Case "Test"
   Call PrintTest()

 Case "BF05"
   Call PrintBF05()

 Case "BF08"
   Call PrintBF08()

 Case "AF04"
   Call PrintAF04()

 Case "AF07"
   Call PrintAF07()

 Case "AF08"
   Call PrintAF08()

 Case "AF10"
   Call PrintAF10()

 Case "AF11"
   Call PrintAF11()

 Case "AF13"
   Call PrintAF13()

 Case "AG02"
   Call PrintAG02()

 Case "AG03"
   Call PrintAG03()

 Case "AG04"
   Call PrintAG04()

 Case "AG05"
   Call PrintAG05()

 Case "AG06"
   Call PrintAG06()

 Case "AG07"
   Call PrintAG07()

 Case "AG08"
   Call PrintAG08()

 Case "AG10"
   Call PrintAG10()

 Case "AG11"
   Call PrintAG11()

 Case "AG13"
   Call PrintAG13()

 Case "BF07"
   Call PrintBF07()

 Case "BF12"
   Call PrintBF12()

 Case "BG02"
   Call PrintBG02()

 Case "BG03"
   Call PrintBG03()

 Case "BG05"
   Call PrintBG05()

 Case "BG06"
   Call PrintBG06()

 Case "BG08"
   Call PrintBG08()

 Case "BG12"
   Call PrintBG12()

 Case "BG13"
   Call PrintBG13()

 Case "CF03"
   Call PrintCF03()

 Case "CF07"
  Call PrintCF07()

 Case "CF12"
   Call PrintCF12()

 Case "CG02"
   Call PrintCG02()

 Case "CG06"
   Call PrintCG08()

 Case "CG07"
   Call PrintCG07()

 Case "CG08"
   Call PrintCG08()


 Case "CG11"
   Call PrintCG11()

 Case "DF01"
   Call PrintDF01()

 Case "DF07"
   Call PrintDF07()

 Case "DF11"
   Call PrintDF11()

 Case "DF12"
   Call PrintDF12()

 Case "DG02"
   Call PrintDG02()

 Case "DG05"
   Call PrintDG05()

 Case "DG08"
   Call PrintDG08()

 Case "DG09"
   Call PrintDG09()

 Case "DG12"
   Call PrintDG12()

 Case "EF01"
   Call PrintEF01()

 Case "EF02"
   Call PrintEF02()

 Case "EF03"
   Call PrintEF03()

 Case "EF04"
   Call PrintEF04()

 Case "EG02"
   Call PrintEG02()

 Case "EG03"
   Call PrintEG03()

 Case "FG10"
   Call PrintFG10()

 Case "GF07"
   Call PrintGF07()

 Case "GF14"
   Call PrintGF14()

 Case "GG02"
   Call PrintGG02()

 Case "GG12"
   Call PrintGG12()

 Case "LT01"
   Call PrintLT01()

 Case "LT02"
   Call PrintLT02()

 Case "LT03"
   Call PrintLT03()

 Case "LT04"
   Call PrintLT04()

 Case "LT05"
   Call PrintLT05()

 Case "LT06"
   Call PrintLT06()

 Case "LT07"
   Call PrintLT07()

 Case "LT08"
   Call PrintLT08()

 Case "LT09"
   Call PrintLT09()

 Case "LT10"
   Call PrintLT10()

End Select

Sub PrintTest()

End Sub

Sub PrintBF05()
 MapPrinter "\\jma-print01\"
End Sub

Sub PrintBF08()
 MapPrinter "\\jma-print01\"
End Sub

Sub PrintAF04()
 MapPrinter "\\jma-print01\MP-A11F-01"
 MapPrinter "\\jma-print01\Library-Atria-A4"
 MapPrinter "\\jma-print01\Library-A3"
 MapPrinter "\\jma-print01\MP-A11F-01"
End Sub

Sub PrintAF07()
 MapPrinter "\\jma-print01\"
 MapPrinter "\\jma-print01\"
End Sub

Sub PrintAF08()
 MapPrinter "\\jma-print01\MP-A15F-01"
 MapPrinter "\\jma-print01\Library-Atria-A4"
 MapPrinter "\\jma-print01\Library-A3"
 MapPrinter "\\jma-print01\MP-A15F-01"
End Sub

Sub PrintAF10()
 MapPrinter "\\jma-print01\MP-A16F-01"
 MapPrinter "\\jma-print01\Library-Atria-A4"
 MapPrinter "\\jma-print01\Library-A3"
 MapPrinter "\\jma-print01\MP-A16F-01"
End Sub

Sub PrintAF11()
 MapPrinter "\\jma-print01\MP-A19F-01"
 MapPrinter "\\jma-print01\Library-Atria-A4"
 MapPrinter "\\jma-print01\Library-A3"
 MapPrinter "\\jma-print01\MP-A19F-01"
End Sub

Sub PrintAF13()
 MapPrinter "\\jma-print01\MP-A17F-01"
End Sub

Sub PrintAG02()
 MapPrinter "\\jma-print01\CP-A02G-02"
 MapPrinter "\\jma-print01\Library-Atria-A4"
 MapPrinter "\\jma-print01\Library-A3" 
 MapPrinter "\\jma-print01\MP-A08G-01"
 MapPrinter "\\jma-print01\CP-A02G-02"
End Sub

Sub PrintAG03()
 MapPrinter "\\jma-print01\Library-A3"
 MapPrinter "\\jma-print01\Library-Atria-A4"
End Sub

Sub PrintAG04()
 MapPrinter "\\jma-print01\MP-A01G-01"
 MapPrinter "\\jma-print01\Library-Atria-A4"
 MapPrinter "\\jma-print01\Library-A3"
 MapPrinter "\\jma-print01\MP-A01G-01"
End Sub

Sub PrintAG05()
 MapPrinter "\\jma-print01\MP-A20G-01"
 MapPrinter "\\jma-print01\Library-Atria-A4"
 MapPrinter "\\jma-print01\Library-A3"
 MapPrinter "\\jma-print01\MP-A20G-01"
End Sub

Sub PrintAG06()
 MapPrinter "\\jma-print01\"
End Sub

Sub PrintAG07()
 MapPrinter "\\jma-print01\MP-A03G-01"
 MapPrinter "\\jma-print01\Library-Atria-A4"
 MapPrinter "\\jma-print01\Library-A3"
 MapPrinter "\\jma-print01\MP-A03G-01"
End Sub

Sub PrintAG08()
 MapPrinter "\\jma-print01\MP-A04G-01"
 MapPrinter "\\jma-print01\Library-Atria-A4"
 MapPrinter "\\jma-print01\Library-A3"
 MapPrinter "\\jma-print01\MP-A04G-01"
End Sub

Sub PrintAG10()
 MapPrinter "\\jma-print01\MP-A06G-01"
 MapPrinter "\\jma-print01\Library-A3"
 MapPrinter "\\jma-print01\Library-Atria-A4"
 MapPrinter "\\jma-print01\MP-A06G-01"
End Sub

Sub PrintAG11()
 MapPrinter "\\jma-print01\Library-A3"
 MapPrinter "\\jma-print01\Library-Atria-A4"
End Sub

Sub PrintAG13()
 MapPrinter "\\jma-print01\MP-A08G-01"
 MapPrinter "\\jma-print01\Library-Atria-A4"
 MapPrinter "\\jma-print01\Library-A3"
 MapPrinter "\\jma-print01\MP-A06G-01"
 MapPrinter "\\jma-print01\MP-A20G-01"
 MapPrinter "\\jma-print01\MP-A30G-01"
 MapPrinter "\\jma-print01\MP-A08G-01"
End Sub

Sub PrintBF07()
 MapPrinter "\\jma-print01\"
 MapPrinter "\\jma-print01\"
End Sub

Sub PrintBF12()
 MapPrinter "\\jma-print01\MP-B21F-01"
 MapPrinter "\\jma-print01\Library-Atria-A4"
 MapPrinter "\\jma-print01\Library-A3"
 MapPrinter "\\jma-print01\MP-B21F-01"
End Sub

Sub PrintBG02()
 MapPrinter "\\jma-print01\Library-Atria-A4"
 MapPrinter "\\jma-print01\Library-A3"
 MapPrinter "\\jma-print01\Library-Atria-A4"
End Sub

Sub PrintBG03()
 MapPrinter "\\jma-print01\MP-B01G-01"
 MapPrinter "\\jma-print01\Library-Atria-A4"
 MapPrinter "\\jma-print01\Library-A3"
 MapPrinter "\\jma-print01\MP-B01G-01"
End Sub

Sub PrintBG05()
 MapPrinter "\\jma-print01\MP-B03G-01"
 MapPrinter "\\jma-print01\Library-A3"
 MapPrinter "\\jma-print01\Library-Atria-A4"
 MapPrinter "\\jma-print01\MP-B03G-01"
End Sub

Sub PrintBG06()
 MapPrinter "\\jma-print01\MP-B04G-01"
 MapPrinter "\\jma-print01\Library-Atria-A4"
 MapPrinter "\\jma-print01\Library-A3"
 MapPrinter "\\jma-print01\MP-B04G-01"
End Sub

Sub PrintBG08()
 MapPrinter "\\jma-print01\MP-B06G-01"
 MapPrinter "\\jma-print01\Library-Atria-A4"
 MapPrinter "\\jma-print01\Library-A3"
 MapPrinter "\\jma-print01\MP-B06G-01"
End Sub

Sub PrintBG12()
 MapPrinter "\\jma-print01\MP-B10G-01"
 MapPrinter "\\jma-print01\Library-Atria-A4"
 MapPrinter "\\jma-print01\Library-A3"
 MapPrinter "\\jma-print01\MP-B10G-01"
End Sub

Sub PrintBG13()
 MapPrinter "\\jma-print01\"
End Sub

Sub PrintCF03()
 MapPrinter "\\jma-print01\MP-C21F-01"
 MapPrinter "\\jma-print01\Library-Atria-A4"
 MapPrinter "\\jma-print01\Library-A3"
 MapPrinter "\\jma-print01\MP-C21F-01"
End Sub

Sub PrintCF07()
 MapPrinter "\\jma-print01\"
 MapPrinter "\\jma-print01\"
End Sub

Sub PrintCF12()
 MapPrinter "\\jma-print01\MP-C20F-01"
 MapPrinter "\\jma-print01\Library-Atria-A4"
 MapPrinter "\\jma-print01\Library-A3"
 MapPrinter "\\jma-print01\MP-C20F-01"
End Sub

Sub PrintCG02()
 MapPrinter "\\jma-print01\Library-Atria-A4"
 MapPrinter "\\jma-print01\CP-E01G-02"
 MapPrinter "\\jma-print01\Library-Atria-A4"
End Sub

Sub PrintCG07()
 MapPrinter "\\jma-print01\MP-C20F-01"
 MapPrinter "\\jma-print01\Library-Atria-A4"
 MapPrinter "\\jma-print01\Library-A3"
 MapPrinter "\\jma-print01\MP-C20F-01"
End Sub

Sub PrintCG08()
 MapPrinter "\\jma-print01\CP-C06G-01"
End Sub

Sub PrintCG06()
 MapPrinter "\\jma-print01\CP-C06G-01"
End Sub

Sub PrintCG11()
 MapPrinter "\\jma-print01\MP-C10G-01"
 MapPrinter "\\jma-print01\Library-Atria-A4"
 MapPrinter "\\jma-print01\Library-A3"
 MapPrinter "\\jma-print01\MP-C10G-01"
End Sub

Sub PrintDF01()
 MapPrinter "\\jma-print01\MP-D22F-01"
 MapPrinter "\\jma-print01\Library-Atria-A4"
 MapPrinter "\\jma-print01\Library-A3"
 MapPrinter "\\jma-print01\MP-D22F-01"
End Sub

Sub PrintDF07()
 MapPrinter "\\jma-print01\"
 MapPrinter "\\jma-print01\"
End Sub

Sub PrintDF11()
 MapPrinter "\\jma-print01\MP-D24F-01"
 MapPrinter "\\jma-print01\Library-Atria-A4"
 MapPrinter "\\jma-print01\Library-A3"
 MapPrinter "\\jma-print01\MP-D24F-01"
End Sub

Sub PrintDF12()
 MapPrinter "\\jma-print01\MP-D13F-01"
 MapPrinter "\\jma-print01\Library-Atria-A4"
 MapPrinter "\\jma-print01\Library-A3"
 MapPrinter "\\jma-print01\MP-D13F-01"
End Sub

Sub PrintDG02()
 MapPrinter "\\jma-print01\"
End Sub

Sub PrintDG05()
 MapPrinter "\\jma-print01\MP-A11F-01"
 MapPrinter "\\jma-print01\MP-D02G-01"
 MapPrinter "\\jma-print01\Library-Atria-A4"
 MapPrinter "\\jma-print01\Library-A3"
 MapPrinter "\\jma-print01\MP-A11F-01"
End Sub

Sub PrintDG08()
 MapPrinter "\\jma-print01\"
End Sub

Sub PrintDG09()
 MapPrinter "\\jma-print01\MP-D08G-01"
 MapPrinter "\\jma-print01\Library-Atria-A4"
 MapPrinter "\\jma-print01\Library-A3"
 MapPrinter "\\jma-print01\MP-D08G-01"
End Sub

Sub PrintDG12()
 MapPrinter "\\jma-print01\MP-D11G-01"
 MapPrinter "\\jma-print01\Library-Atria-A4"
 MapPrinter "\\jma-print01\Library-A3"
 MapPrinter "\\jma-print01\MP-D11G-01"
End Sub

Sub PrintEF01()
 MapPrinter "\\jma-print01\MP-E13F-01"
 MapPrinter "\\jma-print01\CP-E01G-02"
 MapPrinter "\\jma-print01\Library-Atria-A4"
 MapPrinter "\\jma-print01\Library-A3"
End Sub

Sub PrintEF02()
 MapPrinter "\\jma-print01\MP-E11F-01"
 MapPrinter "\\jma-print01\Library-Atria-A4"
 MapPrinter "\\jma-print01\Library-A3"
 MapPrinter "\\jma-print01\CP-E01G-02"
 MapPrinter "\\jma-print01\MP-E11F-01"
End Sub

Sub PrintEF03()
 MapPrinter "\\jma-print01\MP-E15F-01"
 MapPrinter "\\jma-print01\Library-Atria-A4"
 MapPrinter "\\jma-print01\Library-A3"
 MapPrinter "\\jma-print01\CP-E01G-02"
 MapPrinter "\\jma-print01\MP-E15F-01"
End Sub

Sub PrintEF04()
 MapPrinter "\\jma-print01\MP-E14F-01"
 MapPrinter "\\jma-print01\Library-Atria-A4"
 MapPrinter "\\jma-print01\Library-A3"
 MapPrinter "\\jma-print01\CP-E01G-02"
 MapPrinter "\\jma-print01\MP-E14F-01"
End Sub

Sub PrintEG02()
 MapPrinter "\\jma-print01\CP-E01G-02"
 MapPrinter "\\jma-print01\Library-Atria-A4"
 MapPrinter "\\jma-print01\Library-A3"
 MapPrinter "\\jma-print01\MP-E01G-01"
 MapPrinter "\\jma-print01\CP-E01G-02"
End Sub

Sub PrintEG03()
 MapPrinter "\\jma-print01\CP-E01G-02"
 MapPrinter "\\jma-print01\Library-Atria-A4"
 MapPrinter "\\jma-print01\Library-A3"
 MapPrinter "\\jma-print01\MP-E01G-01"
 MapPrinter "\\jma-print01\CP-E01G-02"
 MapPrinter "\\jma-print01\MP-E06G-01"
End Sub

Sub PrintFG10()
 MapPrinter "\\jma-print01\MP-F04G-01"
 MapPrinter "\\jma-print01\Library-Atria-A4"
 MapPrinter "\\jma-print01\Library-A3"
 MapPrinter "\\jma-print01\CP-E01G-02"
 MapPrinter "\\jma-print01\MP-F04G-01"
End Sub

Sub PrintGF07()
 MapPrinter "\\jma-print01\"
End Sub

Sub PrintGF14()
 MapPrinter "\\jma-print01\"
End Sub

Sub PrintGG02()
 MapPrinter "\\jma-print01\"
End Sub

Sub PrintGG12()
 MapPrinter "\\jma-print01\"
End Sub

Sub PrintLT01()
 MapPrinter "\\jma-print01\Library-Atria-A4"
 MapPrinter "\\jma-print01\Library-A3"
 MapPrinter "\\jma-print01\MP-TR01-01"
End Sub

Sub PrintLT02()
 MapPrinter "\\jma-print01\Library-Atria-A4"
 MapPrinter "\\jma-print01\Library-A3"
 MapPrinter "\\jma-print01\MP-TR02-01"
End Sub

Sub PrintLT03()
 MapPrinter "\\jma-print01\Library-Atria-A4"
 MapPrinter "\\jma-print01\Library-A3"
 MapPrinter "\\jma-print01\MP-TR03-01"
End Sub

Sub PrintLT04()
 MapPrinter "\\jma-print01\Library-Atria-A4"
 MapPrinter "\\jma-print01\Library-A3"
 MapPrinter "\\jma-print01\MP-TR04-01"
End Sub

Sub PrintLT05()
 MapPrinter "\\jma-print01\Library-Atria-A4"
 MapPrinter "\\jma-print01\Library-A3"
 MapPrinter "\\jma-print01\MP-TR05-01"
End Sub

Sub PrintLT06()
 MapPrinter "\\jma-print01\Library-Atria-A4"
 MapPrinter "\\jma-print01\Library-A3"
 MapPrinter "\\jma-print01\CP-C06G-01"
 MapPrinter "\\jma-print01\MP-TR06-01"    
End Sub

Sub PrintLT07()
 MapPrinter "\\jma-print01\Library-Atria-A4"
 MapPrinter "\\jma-print01\Library-A3"
 MapPrinter "\\jma-print01\CP-C06G-01"
 MapPrinter "\\jma-print01\MP-TR07-01"
 MapPrinter "\\jma-print01\MP-TR06-01"' added by joe klimis of ramesys on 26/4/07  for testing
End Sub

Sub PrintLT08()
 MapPrinter "\\jma-print01\Library-Atria-A4"
 MapPrinter "\\jma-print01\Library-A3"
 MapPrinter "\\jma-print01\MP-TR08-01"
End Sub

Sub PrintLT09()
 MapPrinter "\\jma-print01\Library-Atria-A4"
 MapPrinter "\\jma-print01\Library-A3"
 MapPrinter "\\jma-print01\MP-TR09-01"
End Sub

Sub PrintLT10()
 MapPrinter "\\jma-print01\Library-Atria-A4"
 MapPrinter "\\jma-print01\Library-A3"
 MapPrinter "\\jma-print01\MP-TR10-01"
End Sub


Function MapPrinter(name)

 PrinterFlag = False
 Set objPrinter = objWshNetwork.EnumPrinterConnections
 For a = 0 To objPrinter.Count - 1 Step 2
   'Remove all existing mapped pritners before connecting new ones
   If Left(objPrinter.Item(LOOP_COUNTER + 1),2) = "\\" Then
     objWshNetwork.RemovePrinterConnection objPrinter.Item(LOOP_COUNTER + 1),True,True
   End If
   If name = objPrinter.Item(a) Then
     PrinterFlag = True
   ElseIf Left(objPrinter(a),3) = "LPT" Then
     PrinterFlag = True
     objWshNetwork.AddWindowsPrinterConnection name
   ElseIf Left(objPrinter(a),6) = "USB001" Then
     PrinterFlag = True
     objWshNetwork.AddWindowsPrinterConnection name
   Else
     PrinterFlag = False
   End If
 Exit For
 Next
   If PrinterFlag = False Then
     objWshNetwork.AddWindowsPrinterConnection name
     objWshNetwork.SetDefaultPrinter name
   End If
 Set objPrinter = Nothing

End Function