Code:
' *******************************************************************************
' * LOGON SCRIPT WHO OBSERVATOIRE *
' * XAVIER MUSTIN - 2006-2011 *
' *******************************************************************************
' *******************************************************************************
' * Initialisation *
' *******************************************************************************
ON Error Resume Next
Set Network = CreateObject("Wscript.network")
' *******************************************************************************
' * Connexion au Personal Drive des Utilisateurs --> U: *
' *******************************************************************************
Dim objNetwork
Dim strDriveLetter, strRemotePath, strUserName
strDriveLetter = "U:"
strRemotePath = "[b]\\SERVER_NAME\USERS_FOLDER[/b]"
Set objNetwork = WScript.CreateObject("WScript.Network")
strUserName = objNetwork.UserName
objNetwork.MapNetworkDrive strDriveLetter, strRemotePath & "\" & strUserName
' *******************************************************************************
' * Affichage de la confirmation du Mapping *
' *******************************************************************************
' * *
' * Extra code just to add a message box *
' * WScript.Echo " Launch Explorer, check: "& strDriveLetter *
' * WScript.Quit *
' * *
' *******************************************************************************
' *******************************************************************************
' * Mapping des Drives réseau Communs *
' *******************************************************************************
ON Error Resume Next
Set Network = CreateObject("Wscript.network")
ON Error Resume Next
Set objNetwork = CreateObject("WScript.Network")
objNetwork.MapNetworkDrive "S:" , "\\obs04\Data\scan-files"
ON Error Resume Next
Set objNetwork = CreateObject("WScript.Network")
objNetwork.MapNetworkDrive "G:" , "\\obs04\data"
' *******************************************************************************
' * Supression des Imprimantes Obsolètes *
' *******************************************************************************
ON Error Resume Next
Set objNetwork = CreateObject("WScript.Network")
objNetwork.RemovePrinterConnection "\\obs01\1HP8150PS"
ON Error Resume Next
Set objNetwork = CreateObject("WScript.Network")
objNetwork.RemovePrinterConnection "\\obs01\2HP8150PS"
ON Error Resume Next
Set objNetwork = CreateObject("WScript.Network")
objNetwork.RemovePrinterConnection "\\obs01\3HP8150PS"
ON Error Resume Next
Set objNetwork = CreateObject("WScript.Network")
objNetwork.RemovePrinterConnection "\\obs01\4HP8150PS"
ON Error Resume Next
Set objNetwork = CreateObject("WScript.Network")
objNetwork.RemovePrinterConnection "\\obs01\BROTHER2600PS"
ON Error Resume Next
Set objNetwork = CreateObject("WScript.Network")
objNetwork.RemovePrinterConnection "\\obs04\LexmarkX543 XL"
ON Error Resume Next
Set objNetwork = CreateObject("WScript.Network")
objNetwork.RemovePrinterConnection "\\obs04\LexmarkC736 XL"
'******
ON Error Resume Next
Set objNetwork = CreateObject("WScript.Network")
objNetwork.RemovePrinterConnection "\\obs01\1HP8150"
ON Error Resume Next
Set objNetwork = CreateObject("WScript.Network")
objNetwork.RemovePrinterConnection "\\obs01\2HP8150"
ON Error Resume Next
Set objNetwork = CreateObject("WScript.Network")
objNetwork.RemovePrinterConnection "\\obs01\3HP8150"
ON Error Resume Next
Set objNetwork = CreateObject("WScript.Network")
objNetwork.RemovePrinterConnection "\\obs01\4HP8150N"
ON Error Resume Next
Set objNetwork = CreateObject("WScript.Network")
objNetwork.RemovePrinterConnection "\\obs01\BROTHER2600"
ON Error Resume Next
Set objNetwork = CreateObject("WScript.Network")
objNetwork.RemovePrinterConnection "\\obs01\BROTHER7050PS"
ON Error Resume Next
Set objNetwork = CreateObject("WScript.Network")
objNetwork.RemovePrinterConnection "\\obs01\BROTHERH"
' *******************************************************************************
' * Installation des Imprimantes en Fonctions *
' *******************************************************************************
ON Error Resume Next
Set objNetwork = CreateObject("WScript.Network")
objNetwork.AddWindowsPrinterConnection "\\obs04\2Floor_HP8150"
ON Error Resume Next
Set objNetwork = CreateObject("WScript.Network")
objNetwork.AddWindowsPrinterConnection "\\obs04\Admins_HP8150"
ON Error Resume Next
Set objNetwork = CreateObject("WScript.Network")
objNetwork.AddWindowsPrinterConnection "\\obs04\Admins_LexmarkX543_Black&White"
ON Error Resume Next
Set objNetwork = CreateObject("WScript.Network")
objNetwork.AddWindowsPrinterConnection "\\obs04\Admins_LexmarkX543_Color"
ON Error Resume Next
Set objNetwork = CreateObject("WScript.Network")
objNetwork.AddWindowsPrinterConnection "\\obs04\Mattias_HP8150"
ON Error Resume Next
Set objNetwork = CreateObject("WScript.Network")
objNetwork.AddWindowsPrinterConnection "\\obs04\Suzy_Brother2600"
ON Error Resume Next
Set objNetwork = CreateObject("WScript.Network")
objNetwork.AddWindowsPrinterConnection "\\obs04\Suzy_HP8150"
'***
ON Error Resume Next
Set objNetwork = CreateObject("WScript.Network")
objNetwork.AddWindowsPrinterConnection "\\obs04\Suzy_LexmarkC736_Black&White"
ON Error Resume Next
Set objNetwork = CreateObject("WScript.Network")
objNetwork.AddWindowsPrinterConnection "\\obs04\Suzy_LexmarkC736_Color"
'***
ON Error Resume Next
Set objNetwork = CreateObject("WScript.Network")
objNetwork.AddWindowsPrinterConnection "\\obs04\Suzy_XeroxWorkCenterPro"
' CreateObject("WScript.Shell").Run "\\ts-server\Inventory\timeserver.cmd"
' CreateObject("WScript.Shell").Run "\\ts-server\Inventory\everest.cmd"
' CreateObject("WScript.Shell").Run "\\ts-server\Inventory\shortcut.cmd"