' *********************************************************************
' ************** Udarbejdet af Jyskpc.dk juni 2006 * btm@jyskpc.dk **
' *********************************************************************
Dim objNetwork, objUser, CurrentUser, objEnvar, MyUsername 
Dim 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 "i:", "\\fc1\install"
objNetwork.MapNetworkDrive "n:", "\\fc1\faelles"
'-----------------------------------------------------

' ***********************
' Printere alle skal have
' ***********************
Set net = CreateObject("WScript.Network") 
'net.AddWindowsPrinterConnection "\\FC1\RICOH", "RICOH -  Kontoret"
'net.AddWindowsPrinterConnection "\\FC1\Pallekort Ricoh", "Pallekort RICOH"
'net.AddWindowsPrinterConnection "\\FC1\Ricoh xal", "Ricoh Xal"
'net.AddWindowsPrinterConnection "\\FC1\HPAllan", "HP Allan"
'net.AddWindowsPrinterConnection "\\FC1\Intermec", "Intermec"
'net.AddWindowsPrinterConnection "\\FC1\Samleafd", "Samleafd"

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

' ***************************************
' Netværksdrev til de forskellige grupper
' HUSK AT GRUPPE NAVNE ER SKREVET MED SMÅT!
' BRUG EVT. FØLGENDE LINIE TIL AT SE GRUPPE INFO!!!!
'WScript.Echo "Brugeren tilhører: " & strGroup
' ***************************************

If InStr(strGroup,"cn=fch produktion") then
 objNetwork.MapNetworkDrive "m:", "\\fc1\produktion"
 objNetwork.MapNetworkDrive "s:", "\\fc1\scandok"
 net.AddWindowsPrinterConnection "\\FC1\RICOH", "RICOH"
 net.AddWindowsPrinterConnection "\\FC1\HPColorL", "HPColorL"
 net.AddWindowsPrinterConnection "\\FC1\HPAllan", "HP Allan"
 net.AddWindowsPrinterConnection "\\FC1\Intermec", "Intermec"
 net.AddWindowsPrinterConnection "\\FC1\Samleafd", "Samleafd"
end if

If InStr(strGroup,"cn=fch xal") then
 objNetwork.MapNetworkDrive "o:", "\\fch4\XAL"
 net.AddWindowsPrinterConnection "\\FC1\Intermec", "Intermec"
end if

If InStr(strGroup,"cn=fch xal test") then
 objNetwork.MapNetworkDrive "k:", "\\fch4\xal test"
 net.AddWindowsPrinterConnection "\\FC1\Intermec", "Intermec"
 net.AddWindowsPrinterConnection "\\FC1\Pallekort Ricoh", "Pallekort RICOH"
end if

If InStr(strGroup,"cn=xal batch") then
 objNetwork.MapNetworkDrive "o:", "\\fch4\XAL"
 net.AddWindowsPrinterConnection "\\FC1\Intermec", "Intermec"
 net.AddWindowsPrinterConnection "\\FC1\Pallekort Ricoh", "Pallekort RICOH"
end if

If InStr(strGroup,"cn=fch økonomi") then
 objNetwork.MapNetworkDrive "j:", "\\fc1\okonomi"
 objNetwork.MapNetworkDrive "s:", "\\fc1\scandok"
 net.AddWindowsPrinterConnection "\\FC1\RICOH", "RICOH"
 net.AddWindowsPrinterConnection "\\FC1\HPColorL", "HPColorL"
end if

If InStr(strGroup,"cn=fch lak") then
 objNetwork.MapNetworkDrive "r:", "\\fc1\lak"
end if

If InStr(strGroup,"cn=fch kf") then
 objNetwork.MapNetworkDrive "q:", "\\fc1\kf"
end if

If InStr(strGroup,"cn=fch cnc") then
 objNetwork.MapNetworkDrive "l:", "\\fc1\cnc"
end if

If InStr(strGroup,"cn=fch administration") then
 objNetwork.MapNetworkDrive "h:", "\\fc1\administration"
 objNetwork.MapNetworkDrive "S:", "\\fc1\scandok"
 net.AddWindowsPrinterConnection "\\FC1\RICOH", "RICOH"
 net.AddWindowsPrinterConnection "\\FC1\HPColorL", "HPColorL"
 net.AddWindowsPrinterConnection "\\FC1\HPAllan", "HP Allan"
 net.AddWindowsPrinterConnection "\\FC1\Intermec", "Intermec"
 net.AddWindowsPrinterConnection "\\FC1\Samleafd", "Samleafd"
end if

'###################
'Eksempel med tal, ved 80 og 800 f.eks.. ',' benyttes!
'If InStr(strGroup,"cn=80,") then
' objNetwork.MapNetworkDrive "R:", "\\emi_server\100$\80"
'end if
'###################

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

strDesktop = WshShell.SpecialFolders("Desktop")

IF Not objFSO.FileExists(strDesktop & "\XAL 3.10.lnk") THEN
set oShellLink = WshShell.CreateShortcut(strDesktop & "\XAL 3.10.lnk")
oShellLink.TargetPath = "o:\xal.bat" 
oShellLink.WindowStyle = 1 
oShellLink.IconLocation = "o:\cxalw32.exe, 0" 
oShellLink.Description = "XAL 3.10"
oShellLink.WorkingDirectory = "o:" 
oShellLink.Save
END IF