' ********************************************************************
' ** Rapporteringsgruppe script til mapning af shares på emi_server **
' ********************************************************************
' ************** Udarbejdet af Jyskpc.dk januar 2006 * btm@jyskpc.d **
' ********************************************************************
Dim objNetwork, objUser, CurrentUser, objEnvar, MyUsername 
Dim strGroup, WshNetwork, oFso, objShell, strUserVar



' **************************************************
' Tilslutning til AD, og hentning af security groups
' **************************************************
Set objNetwork = CreateObject("WScript.Network")
Set objUser = CreateObject("ADSystemInfo")
Set CurrentUser = GetObject("LDAP://" & objUser.UserName)
strGroup = LCase(Join(CurrentUser.MemberOf))

' Hvis der sker en fejl i scriptet hopper den videre til næste linie
On Error Resume Next

'-------------------------------------------------------------------


' *******************************
' Nætværksdrev som alle skal have
' *******************************
'objNetwork.MapNetworkDrive "q:", "\\server\catalouges"
'-----------------------------------------------------


' ***********************
' Printere alle skal have
' ***********************
'Set net = CreateObject("WScript.Network") 
'net.AddWindowsPrinterConnection "\\abtch1\hplj6", "Printer i IT"
'------------------------------------------------------------------

' ***************************************
' Netværksdrev til de forskellige grupper
' ***************************************

If InStr(strGroup,"cn=selskab") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\selskab$"
end if
If InStr(strGroup,"cn=70,") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\100$\70"
end if
If InStr(strGroup,"cn=80,") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\100$\80"
end if
If InStr(strGroup,"cn=90,") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\100$\90"
end if
If InStr(strGroup,"cn=100") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\100$"
end if
If InStr(strGroup,"cn=110") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\100$\110"
end if
If InStr(strGroup,"cn=120") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\100$\120"
end if
If InStr(strGroup,"cn=200") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\200$"
end if
If InStr(strGroup,"cn=205") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\200$\205"
end if
If InStr(strGroup,"cn=210") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\100$\210"
end if
If InStr(strGroup,"cn=220") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\100$\220"
end if
If InStr(strGroup,"cn=221") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\100$\220\221"
end if
If InStr(strGroup,"cn=230") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\200$\230"
end if
If InStr(strGroup,"cn=231") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\200$\230\231"
end if
If InStr(strGroup,"cn=300") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\300$"
end if
If InStr(strGroup,"cn=400") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\400$"
end if
If InStr(strGroup,"cn=405") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\400$\405"
end if
If InStr(strGroup,"cn=410") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\400$\410"
end if
If InStr(strGroup,"cn=411") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\400$\410\411"
end if
If InStr(strGroup,"cn=412") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\400$\410\412"
end if
If InStr(strGroup,"cn=413") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\400$\410\413"
end if
If InStr(strGroup,"cn=420") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\400$\420"
end if
If InStr(strGroup,"cn=421") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\400$\420\421"
end if
If InStr(strGroup,"cn=430") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\400$\430"
end if
If InStr(strGroup,"cn=431") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\400$\430\431"
end if
If InStr(strGroup,"cn=440") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\400$\440"
end if
If InStr(strGroup,"cn=441") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\400$\440\441"
end if
If InStr(strGroup,"cn=450") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\400$\450"
end if
If InStr(strGroup,"cn=451") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\400$\450\451"
end if
If InStr(strGroup,"cn=452") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\400$\450\452"
end if
If InStr(strGroup,"cn=453") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\400$\450\453"
end if
If InStr(strGroup,"cn=454") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\400$\450\454"
end if
If InStr(strGroup,"cn=455") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\400$\450\455"
end if
If InStr(strGroup,"cn=456") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\400$\450\456"
end if
If InStr(strGroup,"cn=460") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\400$\460"
end if
If InStr(strGroup,"cn=461") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\400$\460\461"
end if
If InStr(strGroup,"cn=462") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\400$\460\462"
end if
If InStr(strGroup,"cn=463") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\400$\460\463"
end if
If InStr(strGroup,"cn=464") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\400$\460\464"
end if
If InStr(strGroup,"cn=500") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\500$"
end if
If InStr(strGroup,"cn=505") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\500$\505"
end if
If InStr(strGroup,"cn=510") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\500$\510"
end if
If InStr(strGroup,"cn=511") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\500$\510\511"
end if
If InStr(strGroup,"cn=512") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\500$\510\512"
end if
If InStr(strGroup,"cn=513") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\500$\510\513"
end if
If InStr(strGroup,"cn=521") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\500$\520\521"
end if
If InStr(strGroup,"cn=522") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\500$\520\522"
end if
If InStr(strGroup,"cn=530") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\500$\530"
end if
If InStr(strGroup,"cn=531") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\500$\530\531"
end if
If InStr(strGroup,"cn=532") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\500$\530\532"
end if
If InStr(strGroup,"cn=533") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\500$\530\533"
end if
If InStr(strGroup,"cn=536") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\500$\530\536"
end if
If InStr(strGroup,"cn=537") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\500$\530\537"
end if
If InStr(strGroup,"cn=538") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\500$\530\538"
end if
If InStr(strGroup,"cn=539") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\500$\530\539"
end if
If InStr(strGroup,"cn=550") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\500$\550"
end if
If InStr(strGroup,"cn=551") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\500$\550\551"
end if
If InStr(strGroup,"cn=552") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\500$\550\552"
end if
If InStr(strGroup,"cn=553") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\500$\550\553"
end if
If InStr(strGroup,"cn=554") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\500$\550\554"
end if
If InStr(strGroup,"cn=555") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\500$\550\555"
end if
If InStr(strGroup,"cn=556") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\500$\550\556"
end if
If InStr(strGroup,"cn=557") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\500$\550\557"
end if
If InStr(strGroup,"cn=558") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\500$\550\558"
end if
If InStr(strGroup,"cn=559") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\500$\550\559"
end if
If InStr(strGroup,"cn=560") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\500$\560"
end if
If InStr(strGroup,"cn=561") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\500$\560\561"
end if
If InStr(strGroup,"cn=562") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\500$\560\562"
end if
If InStr(strGroup,"cn=563") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\500$\560\563"
end if
If InStr(strGroup,"cn=564") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\500$\560\564"
end if
If InStr(strGroup,"cn=565") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\500$\560\565"
end if
If InStr(strGroup,"cn=566") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\500$\560\566"
end if
If InStr(strGroup,"cn=567") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\500$\560\567"
end if
If InStr(strGroup,"cn=568") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\500$\560\568"
end if
If InStr(strGroup,"cn=569") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\500$\560\569"
end if
If InStr(strGroup,"cn=571") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\500$\570\571"
end if
If InStr(strGroup,"cn=572") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\500$\570\572"
end if
If InStr(strGroup,"cn=573") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\500$\570\573"
end if
If InStr(strGroup,"cn=574") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\500$\570\574"
end if
If InStr(strGroup,"cn=575") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\500$\570\575"
end if
If InStr(strGroup,"cn=576") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\500$\570\576"
end if
If InStr(strGroup,"cn=577") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\500$\570\577"
end if
If InStr(strGroup,"cn=578") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\500$\570\578"
end if
If InStr(strGroup,"cn=579") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\500$\570\579"
end if
If InStr(strGroup,"cn=600") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\600$"
end if
If InStr(strGroup,"cn=605") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\600$\605"
end if
If InStr(strGroup,"cn=610") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\600$\610"
end if
If InStr(strGroup,"cn=611") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\600$\610\611"
end if
If InStr(strGroup,"cn=612") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\600$\610\612"
end if
If InStr(strGroup,"cn=612") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\600$\610\612"
end if
If InStr(strGroup,"cn=613") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\600$\610\613"
end if
If InStr(strGroup,"cn=614") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\600$\610\614"
end if
If InStr(strGroup,"cn=615") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\600$\610\615"
end if
If InStr(strGroup,"cn=620") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\600$\620"
end if
If InStr(strGroup,"cn=621") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\600$\620\621"
end if
If InStr(strGroup,"cn=622") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\600$\620\622"
end if
If InStr(strGroup,"cn=631") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\600$\630\631"
end if
If InStr(strGroup,"cn=632") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\600$\630\632"
end if
If InStr(strGroup,"cn=633") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\600$\630\633"
end if
If InStr(strGroup,"cn=634") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\600$\630\634"
end if
If InStr(strGroup,"cn=635") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\600$\630\635"
end if
If InStr(strGroup,"cn=636") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\600$\630\636"
end if
If InStr(strGroup,"cn=639") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\600$\630\639"
end if
If InStr(strGroup,"cn=640") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\600$\640"
end if
If InStr(strGroup,"cn=641") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\600$\640\641"
end if
If InStr(strGroup,"cn=650") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\600$\650"
end if
If InStr(strGroup,"cn=651") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\600$\650\651"
end if
If InStr(strGroup,"cn=653") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\600$\650\653"
end if
If InStr(strGroup,"cn=654") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\600$\650\654"
end if
If InStr(strGroup,"cn=655") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\600$\650\655"
end if
If InStr(strGroup,"cn=656") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\600$\650\656"
end if
If InStr(strGroup,"cn=658") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\600$\650\658"
end if
If InStr(strGroup,"cn=660") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\600$\660"
end if
If InStr(strGroup,"cn=661") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\600$\660\661"
end if
If InStr(strGroup,"cn=662") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\600$\660\662"
end if
If InStr(strGroup,"cn=669") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\600$\660\669"
end if
If InStr(strGroup,"cn=671") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\600$\670\671"
end if
If InStr(strGroup,"cn=680") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\600$\680"
end if
If InStr(strGroup,"cn=681") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\600$\680\681"
end if
If InStr(strGroup,"cn=688") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\600$\680\688"
end if
If InStr(strGroup,"cn=690") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\600$\690"
end if
If InStr(strGroup,"cn=691") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\600$\690\691"
end if
If InStr(strGroup,"cn=692") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\600$\690\692"
end if
If InStr(strGroup,"cn=693") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\600$\690\693"
end if
If InStr(strGroup,"cn=694") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\600$\690\694"
end if
If InStr(strGroup,"cn=695") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\600$\690\695"
end if
If InStr(strGroup,"cn=697") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\600$\690\697"
end if
If InStr(strGroup,"cn=691") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\600$\690\691"
end if
If InStr(strGroup,"cn=900") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\900$"
end if
If InStr(strGroup,"cn=910") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\900$\910"
end if
If InStr(strGroup,"cn=911") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\900$\910\911"
end if
If InStr(strGroup,"cn=912") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\900$\910\912"
end if
If InStr(strGroup,"cn=913") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\900$\910\913"
end if
If InStr(strGroup,"cn=914") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\900$\910\914"
end if
If InStr(strGroup,"cn=916") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\900$\910\916"
end if
If InStr(strGroup,"cn=940") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\900$\940"
end if
If InStr(strGroup,"cn=951") then
 objNetwork.MapNetworkDrive "R:", "\\emi_server\900$\950\951"
end if



'**************************************************
'** Opretter genvej på skrivebordet til q drevet **
'**************************************************
Set WshShell = CreateObject("WScript.Shell")
set objFSO = CreateObject("Scripting.FileSystemObject")

strDesktop = WshShell.SpecialFolders("Desktop")

IF Not objFSO.FileExists(strDesktop & "\Mdr. Rapporter.lnk") THEN
set oShellLink = WshShell.CreateShortcut(strDesktop & "\Mdr. Rapporter.lnk")
oShellLink.TargetPath = "R:" 
oShellLink.WindowStyle = 1 
oShellLink.IconLocation = "SHELL32.dll, 80" 
oShellLink.Description = "Dette er en genvej til dit R Drev" 
oShellLink.WorkingDirectory = "R:" 
oShellLink.Save
END IF