vbs

' ********************************************************************
' ** Rapporteringsgruppe script til mapning af shares på emi_server **
' ********************************************************************


Option Explicit
Dim objNetwork, objUser, CurrentUser
Dim strGroup

Const 500_Gruppen = "cn=500"
Const 505_Gruppen = "cn=505"
Const 510_Gruppen = "cn=510"
Const 511_Gruppen = "cn=511"
Const 512_Gruppen = "cn=512"
Const 513_Gruppen = "cn=513"

' **************************************************
' Tilslutning til AD, og hentning af security groups
' **************************************************
Set objNetwork = CreateObject("WScript.Network")
' Hvis der sker en fejl i scriptet hopper den videre til næste linie

Dim WshNetwork
Set WshNetwork = WScript.CreateObject("WScript.Network")
' Fjerner evt. netværksdrev før de mappes
WshNetwork.RemoveNetworkDrive "m:"

Set objUser = CreateObject("ADSystemInfo")
Set CurrentUser = GetObject("LDAP://" & objUser.UserName)
strGroup = LCase(Join(CurrentUser.MemberOf))
'-------------------------------------------------------------------


' *******************************
' 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, 500_Gruppen) then
 objNetwork.MapNetworkDrive "q:", "\\emi_server\500$"
end if

if InStr(strGroup, 505_Gruppen) then
 objNetwork.MapNetworkDrive "q:", "\\emi_server\500$\505"
end if

if InStr(strGroup, 510_Gruppen) then
 objNetwork.MapNetworkDrive "q:", "\\emi_server\500$\510"
end if

if InStr(strGroup, 511_Gruppen) then
 objNetwork.MapNetworkDrive "q:", "\\emi_server\500$\510\511"
end if

if InStr(strGroup, 500_Gruppen) or instr(strGrooup, 600_Gruppen) then
   objNetwork.MapNetworkDrive "q:", "\\emi_server\500$"
   objNetwork.MapNetworkDrive "r:", "\\emi_server\600$"
end if
'---------------------------------------------------------------------


'*********************************************************************
'** Opretter en genvej på skrivebordet til det mappede netværksdrev **
'*********************************************************************

Set WshShell = CreateObject("WScript.Shell")
set objFSO = CreateObject("Scripting.FileSystemObject")

strDesktop = WshShell.SpecialFolders("Desktop")

IF Not objFSO.FileExists(strDesktop & "\Dit C-drev.lnk") THEN
set oShellLink = WshShell.CreateShortcut(strDesktop & "\Dit C-drev.lnk")
oShellLink.TargetPath = "c:" 
oShellLink.WindowStyle = 1 
oShellLink.IconLocation = "SHELL32.dll, 18" 
oShellLink.Description = "Dette er en genvej til dit C Drev" 
oShellLink.WorkingDirectory = "c:" 
oShellLink.Save
set oShellLink = NOTHING
END IF

Set WshShell = NOTHING
Set objFSO = NOTHING