' *********************************************************************
' ************** 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