Description

Nous avons vu dans un article précédent qu’il était possible d’adopter une stratégie de Logon Script selon l’appartenance d’un utilisateur à un groupe d’accès. Cette méthode est tout a fait adaptée à la gestion des accès aux partages par exemple.

Ainsi Patrick, comptable et nomade, aura toujours accès à son lecteur réseau dédié à la compatibilité car il est bien membre de son groupe “Comptable”.

Mais quand est il s’il souhaite imprimer ou encore accéder à Internet ? Ne serait il pas judicieux de lui mapper automatiquement une imprimante et de lui spécifier un serveur proxy correspondant à son site de connexion ?

La solution

C’est pour résoudre cette problématique liée à la localisation d’un utilisateur nomade que je vous propose une technique qui se base sur le réseau IP du site depuis lequel l’utilisateur se connecte.

Imaginons 2 agences d’une même société, même si elles sont dans un même réseau, elles auront certainement un sous réseau différent, par exemple 192.168.14.x et 192.168.15.x

Et bien il est possible en VBScript d’établir des conditions qui vont se baser sur ces adresses !

Ainsi à l’exécution du script l’adresse IP de Patrick, 192.168.15.25, va être splittée en 4 dans un tableau, le séparateur étant le “.”

Vous avez compris que c’est le troisième champ de l’adresse (ici 14 ou 15) qui va différencier les 2 agences, c’est donc la dessus que tout va se jouer ;-).

Un exemple !

Dans la code suivant imaginons que Patrick s’est vu affecté l’adresse IP 192.168.15.25. Tout d’abord cela signifie qu’il est localisé sur le site ayant 192.168.15.x comme sous-réseau. Patrick va donc répondre à la condition correspondant  au “case = 15″ du code suivant. L’imprimante PRINTSHARE2 va être mapper sur sa machine et le proxy 192.168.15.200 va lui être attribuer.

Le code

On Error Resume Next
Dim ArrayIP
strComputer = "."
Set objNetwork = WScript.CreateObject("Wscript.Network")
Set objWMIService = GetObject( _
    "winmgmts:\\" & strComputer & "\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery _
    ("Select IPAddress from Win32_NetworkAdapterConfiguration Where IPEnabled = True")

For Each IPConfig In IPConfigSet
  ArrayIP = Split (IPConfig.IPAddress(0), ".")
Next

If ArrayIP(0)=192 Then

	If ArrayIP(1)=168 Then

		Select Case ArrayIP(2)

Case "14"

        objNetwork.AddWindowsPrinterConnection("\\SERVEUR1\PRINTERSHARE1")
        objNetwork.SetDefaultPrinter("\\SERVEUR1\PRINTERSHARE1")
	WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\AutoConfigURL", "http://192.168.14.200/web1.pac"
        WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", "00000000"
        WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyOverride", ""

Case "15"
	objNetwork.AddWindowsPrinterConnection("\\SERVEUR2\PRINTERSHARE2")
        objNetwork.SetDefaultPrinter("\\SERVEUR2\PRINTERSHARE2")
	WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\AutoConfigURL", "http://192.168.15.200/web2.pac"
        WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", "00000000"
        WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyOverride", ""
		End Select

  End If

End If

Que fait ce script?

Dans cet exemple si l’utilisateur qui exécute le script appartient à un groupe nommé Groupe-Compatibilité-Siège un lecteur réseau U va être mapper sur la ressource \\SERVEUR\PartageCompta et un script AuditCompta.vbs va être exécuter parallèlement au Logon Script.

Si l’utilisateur en revanche appartient au Groupe Groupe-Paye-Siège, 2 lecteurs U et V correspondants respectivement aux ressources \\SERVEUR\PartagePaye et \\SERVEUR\PartagePointages vont être mapper sur sa machine.

Voici le code …

On Error Resume Next
'Déclaration des variables'
Dim objGroupList, objADObject, strGroup, objUser

Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshVarEnv = WshShell.Environment("PROCESS")
strNetBiosDomain = WshVarEnv.Item ("USERDOMAIN")
strLogonServer = WshShell.ExpandEnvironmentStrings("%Logonserver%")
strUserName = WshShell.ExpandEnvironmentStrings("%USERNAME%")

Set objUser = GetObject("WinNT://" & strNetBiosDomain & "/" _
  & strUserName & ",user")

'Condition 1 : Si l'utilisateur appartient à "Groupe-Comptabilité-Siège"
If IsMember("Groupe-Comptabilité-Siège") Then
objNetwork.RemoveNetworkDrive "U:"
objNetwork.MapNetworkDrive "U:" , "\\SERVEUR\PartageCompta"
WshShell.run strLogonServer & "netlogon\AuditCompta.vbs"
End If

'Condition 2 : Si l'utilisateur appartient à "Groupe-Paye-Siège"
If IsMember("Groupe-Paye-Siège") Then
objNetwork.RemoveNetworkDrive "U:"
objNetwork.MapNetworkDrive "U:" , "\\SERVEUR\PartagePaye"
objNetwork.RemoveNetworkDrive "V:"
objNetwork.MapNetworkDrive "V:" , "\\SERVEUR\PartagePointages"

End If

'Fin du script'
WScript.quit

'Les 2 Fonctions de test d'appartenance aux groupes'
Function IsMember(strGroup)
  If IsEmpty(objGroupList) Then
    Call ReadGroups
  End If
  IsMember = objGroupList.Exists(strGroup)
End Function

Sub ReadGroups
  Dim objGroup
  Set objGroupList = CreateObject("Scripting.Dictionary")
  objGroupList.CompareMode = vbTextCompare
  For Each objGroup In objUser.Groups
    objGroupList(objGroup.name) = True
  Next
  Set objGroup = Nothing
End Sub

Et après ?

Cette technique est très performante et devient vite indispensable. Vous pouvez imaginez une multitude d’utilisation avec ce type de condition par groupe d’appartenance.

Cette technique est particulièrement adaptée à la gestion des partages utilisateurs, puisque elle va faciliter vos migrations de fichiers. En effet si vous décider de changer l’emplacement d’un partage il suffira de changer le chemin indiqué dans le Logon Script et de demander aux utilisateurs du groupe de fermer et réouvrir leur session pour que leur nouveau partage soit effectif.

Pour cela un petit bout de code en VBScript suffit ! Nous allons vérifier dans la base de registre du système qui exécute le script, la version du système. Si le système est un serveur, on sort du script grâce à la commande WScript.quit

Dim varShell
Set varShell = WScript.CreateObject("WScript.Shell")
If varShell.RegRead("HKLM\SYSTEM\CurrentControlSet\Control\ProductOptions\" _
& "ProductType") <> "WinNT" Then
WScript.quit
Else
End If

Les 2 premières lignes servent à déclarer un objet “WScript.Shell”. Vérifier que vous ne l’avez pas déja fait dans votre script, auquel cas n’hésitez pas à remplacer la variable varShell de la 3ème ligne par celle que vous avez déclarée. Le script deviendrait:

If votrevariable.RegRead("HKLM\SYSTEM\CurrentControlSet\Control\ProductOptions\" _
& "ProductType") <> "WinNT" Then
WScript.quit
Else
End If

Dans un article précédent nous avons vu comment mettre en place un fichier Logon Script dans un domaine Active Directory. Nous allons cette fois ajouter un nouvelle fonctionnalité au script VBS qui consiste à modifier la page d’accueil du navigateur Internet Explorer des utilisateurs de votre domaine.

Nous allons utiliser la fonction Regwrite qui permet d’écrire dans la base de registre afin de modifier la clé HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page

Modifiez votre fichier Logon Script et insérez le code suivant en remplaçant http://votreintranet.com par le site de votre choix

Dim varShell
Set varShell = WScript.CreateObject("WScript.Shell")
varShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page", "http://votreintranet.com"

Avant toute chose connectez vous sur l’un de vos serveurs Exchange 2007 et ouvrez Exchange Management Shell.

Lister les boites aux lettres

Positionnez vous dans la fenêtre Exchange Management Shell et executer la CmdLet suivante pour lister l’ensemble des boites aux lettres de votre organisation Exchange:

Get-Mailbox

Vous obtenez un résultat de la forme suivante:

Exporter une boite aux lettres

Dans cet exemple je vais exporter la boite aux lettres de l’utilisateur Yvon GAGNER vers le répertoire local c:\PST

Pour cela exécuter la commande suivante depuis l’interpréteur Powershell:

Export-Mailbox -Identity “Yvon GAGNER” -PSTFolderPath c:\PST

Tapez O pour valider

Vous pouvez suivre le déroulement de l’export depuis la fenêtre Powershell 

Exporter toutes les boites aux lettres d’une banque d’information

Pour exporter toutes les BAL d’une BI avec Powershell nous allons cette fois utiliser 2 CmdLets imbriquées grâce au “pipe”, le fameux | utilisé sous Unix ;-):

• Get-Mailbox
• Export-Mailbox

Ainsi la commande suivante va lister les boites aux lettre de la base appelée Mailbox Database, nom de la base par défaut, puis successivement exporter leurs contenus vers des PST localisés dans c:\PST

Get-Mailbox -Database “Mailbox Database” | Export-Mailbox -PSTFolderPath c:\PST

Tapez cette fois T pour exporter l’ensemble des boites ! 

Exporter toutes les boites aux lettres d’une Organisation

Nous montons encore d’un cran, puisque nous souhaitons cette fois exporter tous les utilisateurs d’une organisation Exchange.

Dans le même esprit que précédement nous utilisons 2 commandes simultannément à l’aide d’un |

Get-Mailbox -OrganizationalUnit ELUsers | Export-Mailbox -PSTFolderPath c:\PST

Tapez T pour exporter l’ensemble des boites.

Tout d’abord il faut créer un fichier de script Powershell monscript.ps1contenant le script suivant:

$strComputer = "COMPUTER02"
$colItems = get-wmiobject -class "Win32_QuickFixEngineering" -namespace "root\CIMV2" `
-computername $strComputer
foreach ($objItem in $colItems) {
      write-host "Caption: " $objItem.Caption
      write-host "CS Name: " $objItem.CSName
      write-host "Description: " $objItem.Description
      write-host "Fix Comments: " $objItem.FixComments
      write-host "HotFix ID: " $objItem.HotFixID
      write-host "InstallationDate: " $objItem.InstallDate
      write-host "Installed By: " $objItem.InstalledBy
      write-host "Installed On: " $objItem.InstalledOn
      write-host "Name: " $objItem.Name
      write-host "Service Pack In Effect: " $objItem.ServicePackInEffect
      write-host "Status: " $objItem.Status
      write-host
}

Nous pouvons ensuite exécuter le script directement depuis l’interpréteur Powershell :

PS C:\>.\monscript.ps1

Je vous invite à consulter les articles suivants si vous n’avez pas encore installé Powershell et si vous souhaitez découvrir les différentes manières d’exécuter du code en Powershell.

Installer PowerShell 1.0

Exécuter un script en PowerShell

Installer PowerShell 1.0

Exécuter un script en PowerShell

Tout d’abord nous créons un fichier de script Powershell monscript.ps1contenant le script suivant:

$strComputer = "."
$Var =GWMI -Comp $strComputer -CL Win32_ComputerSystem
"Machine Name: " + $Var.Name + " User Name: " + $Var.UserName

Le “.” désigne la machine sur laquelle est exécutée le script. Cette syntaxe se retrouve d’ailleurs en VBScript.

Si l’on souhaite savoir qui est connecté sur la station nommée STATION02 il suffit de remplacer le “.” par “STATION02″. Le code devient alors:

$strComputer = "STATION02"
$Var =GWMI -Comp $strComputer -CL Win32_ComputerSystem
"Machine Name: " + $Var.Name + " User Name: " + $Var.UserName

Nous exécutons le script directement depuis l’interpréteur Powershell :

PS C:\>.\monscript.ps1

On obtient un résultat de la forme suivante :

PS C:\> .\monscript.ps1
Machine Name: STATION01 User Name: DOMLAB\hatmos
PS C:\>

Nous pouvons exécuter le script depuis une invite de commande (cmd) classique en tapant:

PowerShell C:\monscript.ps1

Mais malheureusement l’affichage est renvoyé dans l’interpréteur … qui se ferme aussitôt. Nous allons donc ajouter un MSGBOX à la manière des VBScript, afin d’avoir le temps de visualiser le résultat.

Le code devient alors:

$strComputer = "STATION02"
$Var =GWMI -Comp $strComputer -CL Win32_ComputerSystem
"Machine Name: " + $Var.Name + " User Name: " + $Var.UserName
$a = new-object -comobject wscript.shell
$b = $a.popup($Var.UserName,0,"MSGBOX en Powershell",1)

Et le résultat sera retourné dans un MSGBOX

Il est possible d’effectuer la même opération en VBScript. Je vous invite pour cela à consulter l’article suivant:

Afficher le compte utilisateur connecté sur une machine distante en VBScript

Avant de commencer et si vous n’êtes pas encore à l’aise en Powershell je vous invite à consulter les articles suivants:

Installer PowerShell 1.0

Exécuter un script en PowerShell

Considérons un fichier texte nommé AllDomainComputers.txt contenant la liste de machines suivantes:

Station14
Station04
Station01
Station24
Station01

Nous souhaitons supprimer les doublons puis trier la liste par ordre alphabétique tout en conservant la liste original.

Pour cela nous créons un fichier de script Powershell MonScript.PS1contenant le script suivant:

$OriginalFile = "C:\AllDomainComputers.txt"
$DestinationFile = "C:\AllDomainComputers_NEW.txt"
Get-Content $OriginalFile | Sort-Object | Get-Unique > $DestinationFile

Puis nous l’exécutons depuis une ligne de commande:

PowerShell c:\Monscript.PS1

On peut constater que le nouveau fichier AllDomainComputers_NEW.txt contient bien un liste triée et sans aucun doublons:

Station01
Station04
Station14
Station24

Nous aurions pu utiliser les Alias afin de simplifier le code, ce qui aurait donné :

$OriginalFile = "C:\AllDomainComputers.txt"
$DestinationFile = "C:\AllDomainComputers_NEW.txt"
GC $OriginalFile | Sort | GU > $DestinationFile

Pour trier la liste dans l’ordre inverse il suffit d’utiliser la propriété descending :

$OriginalFile = "C:\AllDomainComputers.txt"
$DestinationFile = "C:\AllDomainComputers_NEW.txt"
GC $OriginalFile | Sort -descending | GU > $DestinationFile

On obtient ainsi la liste suivante :

Station24
Station14
Station04
Station01

Pour lister les Alias depuis l’interpréteur Powershell entrez la commande suivante:

PS C:\> get-alias

Il est d’ailleurs possible d’utiliser l’Alias de cette commande !

PS C:\> gal

Si vous souhaitez lister les alias dans un fichier .TXT plutôt que dans l’interpréteur:

PS C:\> gal >gal.txt

Voici la liste de tous les alias disponibles nativement:

PS C:\> get-alias

CommandType     Name                            Definition
-----------     ----                            ----------
Alias           ac                              Add-Content
Alias           asnp                            Add-PSSnapin
Alias           clc                             Clear-Content
Alias           cli                             Clear-Item
Alias           clp                             Clear-ItemPropert
Alias           clv                             Clear-Variable
Alias           cpi                             Copy-Item
Alias           cpp                             Copy-ItemProperty
Alias           cvpa                            Convert-Path
Alias           diff                            Compare-Object
Alias           epal                            Export-Alias
Alias           epcsv                           Export-Csv
Alias           fc                              Format-Custom
Alias           fl                              Format-List
Alias           foreach                         ForEach-Object
Alias           %                               ForEach-Object
Alias           ft                              Format-Table
Alias           fw                              Format-Wide
Alias           gal                             Get-Alias
Alias           gc                              Get-Content
Alias           gci                             Get-ChildItem
Alias           gcm                             Get-Command
Alias           gdr                             Get-PSDrive
Alias           ghy                             Get-History
Alias           gi                              Get-Item
Alias           gl                              Get-Location
Alias           gm                              Get-Member
Alias           gp                              Get-ItemProperty
Alias           gps                             Get-Process
Alias           group                           Group-Object
Alias           gsv                             Get-Service
Alias           gsnp                            Get-PSSnapin
Alias           gu                              Get-Unique
Alias           gv                              Get-Variable
Alias           gwmi                            Get-WmiObject
Alias           iex                             Invoke-Expression
Alias           ihy                             Invoke-History
Alias           ii                              Invoke-Item
Alias           ipal                            Import-Alias
Alias           ipcsv                           Import-Csv
Alias           mi                              Move-Item
Alias           mp                              Move-ItemProperty
Alias           nal                             New-Alias
Alias           ndr                             New-PSDrive
Alias           ni                              New-Item
Alias           nv                              New-Variable
Alias           oh                              Out-Host
Alias           rdr                             Remove-PSDrive
Alias           ri                              Remove-Item
Alias           rni                             Rename-Item
Alias           rnp                             Rename-ItemProper
Alias           rp                              Remove-ItemProper
Alias           rsnp                            Remove-PSSnapin
Alias           rv                              Remove-Variable
Alias           rvpa                            Resolve-Path
Alias           sal                             Set-Alias
Alias           sasv                            Start-Service
Alias           sc                              Set-Content
Alias           select                          Select-Object
Alias           si                              Set-Item
Alias           sl                              Set-Location
Alias           sleep                           Start-Sleep
Alias           sort                            Sort-Object
Alias           sp                              Set-ItemProperty
Alias           spps                            Stop-Process
Alias           spsv                            Stop-Service
Alias           sv                              Set-Variable
Alias           tee                             Tee-Object
Alias           where                           Where-Object
Alias           ?                               Where-Object
Alias           write                           Write-Output
Alias           cat                             Get-Content
Alias           cd                              Set-Location
Alias           clear                           Clear-Host
Alias           cp                              Copy-Item
Alias           h                               Get-History
Alias           history                         Get-History
Alias           kill                            Stop-Process
Alias           lp                              Out-Printer
Alias           ls                              Get-ChildItem
Alias           mount                           New-PSDrive
Alias           mv                              Move-Item
Alias           popd                            Pop-Location
Alias           ps                              Get-Process
Alias           pushd                           Push-Location
Alias           pwd                             Get-Location
Alias           r                               Invoke-History
Alias           rm                              Remove-Item
Alias           rmdir                           Remove-Item
Alias           echo                            Write-Output
Alias           cls                             Clear-Host
Alias           chdir                           Set-Location
Alias           copy                            Copy-Item
Alias           del                             Remove-Item
Alias           dir                             Get-ChildItem
Alias           erase                           Remove-Item
Alias           move                            Move-Item
Alias           rd                              Remove-Item
Alias           ren                             Rename-Item
Alias           set                             Set-Variable
Alias           type                            Get-Content

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.Workbooks.Add
intRow = 2
objExcel.Cells(1, 1).Value = "Nom Machine"
objExcel.Cells(1, 2).Value = "Numéro de série"
Set Fso = CreateObject("Scripting.FileSystemObject")
Set InputFile = fso.OpenTextFile("MachineList.Txt")
Do While Not (InputFile.atEndOfStream)
strComputer = InputFile.ReadLine
On Error Resume Next
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_BIOS",,48)
If Err.Number <> 0 Then
objExcel.Cells(intRow, 1).Value = UCase(strComputer)
objExcel.Cells(intRow, 2).Value = "Introuvable"
Err.Clear
Else
For Each objItem in colItems
objExcel.Cells(intRow, 1).Value = UCase(objItem.Name)
objExcel.Cells(intRow, 2).Value = UCase(objItem.SerialNumber)
Next
End If
intRow = intRow + 1
Loop
objExcel.Range("A1:B1").Select
objExcel.Selection.Interior.ColorIndex = 19
objExcel.Selection.Font.ColorIndex = 9
objExcel.Selection.Font.Bold = True
objExcel.Cells.EntireColumn.AutoFit
wscript.echo "Terminé"