Blog de Sys Admin » Active-Directory

Mini Boite à outils Powershell

sensei.dje — Wed, 22 Jun 2011 20:07:22 +0000

C’est au fur et à mesure,en jouant avec powershell que j’ai noté et gardé ces bricoles…
Si ça crame, ces p’tits scripts, scriptlets ou commandlet seront au moins sauvés ici …

Accès à une clé de Registre

$key= get-item "HKLM:\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"

A noter : en Powershell, le registre est considéré comme un lecteur « logique » (type C:\) d’où la syntaxe HKLM:\ …

Accès à une propriété d’une clé de Registre

$key= get-item "HKLM:\SOFTWARE\Microsoft\Windows NT\CurrentVersion\
$val= get-itemProperty $key.PSPath |select ProductName

A noter : la propriété .pspath est indispensable pour bypass le chemin « physique » (exemple c:\documents and settings…) par défaut.
La partie « |select… » est optionnelle, elle permet de ne récuperer que certaines propriétés ( select étant un alias de select-object)

Liste des pilotes d’impression installés

$liste=@() #important : pour creer un tableau
$collection =Get-WmiObject win32_Printerdriver | select name,version, supportedplatform
foreach ($drivers in $collection)
{ $liste+=($drivers.name -split ",")[0]}
$liste

Création unitaire d’une file d’impression

Ce script n’installe aucun pilote, il se contente de créer, partager et publier dans l’AD une file correspondant aux variables renseignées…
Gros pré-requis : connaitre le libellé exact du pilote que l’on va utiliser ! cf script précédent…

$Name="IMP-machintruc"
$Comment="Patati..."
$Emplacement="Bureau XXX"
$DriverName = "Lexmark Universal XL" #<== Tres important !!
$IPAddress = "192.168.XXX.XXX"
$PortName = "Port-IPXXX"

# creation du port
$ClassIPPrnPort= [wmiclass]'Win32_TCPIPPrinterPort'
$NewPort= $ClassIPPrnPort.CreateInstance()
$NewPort.HostAddress = $IPAddress
$NewPort.Name = $PortName
$NewPort.Protocol = 1 # 1 = Raw, 2 = LPR
$NewPort.SNMPEnabled = $false
$ResultPort=$NewPort.Put()

# ajout de la file
$ClassPrinter= [wmiclass]'Win32_Printer'
$NewPrinter= $ClassPrinter.CreateInstance()
$NewPrinter.DriverName = $DriverName
$NewPrinter.DeviceID = $Name
$NewPrinter.PortName = $PortName
$newprinter.Shared = $true
$newprinter.Published = $true
$newprinter.Sharename = $Name
$newprinter.Location = $Emplacement
$newprinter.Comment = $Comment

$ResultPrinter=$NewPrinter.Put()

Liste des services arrêtés d’une machine distante

Aussi connu sous le nom : le « ça ressemble à un ‘ps pipe grep' »

get-service -computername "ordXXXX" | where {$_.status -eq "stopped" }

Parcours d’un tableau, concaténation et transtypage

Parcours du tableau $var contenant les valeurs 0 1 2 3 4

$var=0..4;$result="";$result=@() ; foreach ($val in $var) {$result+=[int]([string]$val + "01");}

Bien initialiser la variable $result en tant que tableau.

Ping des controleurs de domaine en powershell

sensei.dje — Thu, 16 Jun 2011 18:03:20 +0000

La supervision des contrôleurs de domaine est facilitée par des outils tels que le vénérable sonar ou son descendant ultrasound (google -> microsoft …) .
On peut aussi être intéressé par une information quasi instantanée de premier niveau, à savoir, repondent-ils au ping…

Dans cet esprit, j’ai ce vieux bout de code, interrogeant le domaine, montant la liste des DC et affichant en vert quand c’est bon, rouge quand ça répond pas.

Le gros du code tourne autour d’une récupération d’info WMI, comme souvent..

$ping = new-object System.Net.Networkinformation.Ping
$objDomain = [System.DirectoryServices.ActiveDirectory.Domain]::GetCurrentDomain()
$dc=$objDomain.FindAllDomainControllers() | Select-Object Name,IpAddress |sort name
for ($i=0; $i -le $dc.count-1 ;$i++) {
Write-Host -ForegroundColor "white" $dc[$i].name -NoNewLine " - IP-> "
if ($ping.send($dc[$i].name).status -eq "success" )
{ Write-Host -ForegroundColor "green" -NoNewLine $dc[$i].ipaddress}
else
{ Write-Host -ForegroundColor "red" -NoNewLine $dc[$i].ipaddress}
Write-Host -ForegroundColor "white" -NoNewLine " - R-> "
if ($dc[$i].name.substring(0,2) -eq "cm")
{$ip=$dc[$i].Ipaddress.substring(0,$dc[$i].Ipaddress.length -3) + "XXX"; #<- à modifier pour votre pattern à vous
if ($ping.send($ip).status -eq "success" )
{ Write-Host -ForegroundColor "green" $ip}
else
{ Write-Host -ForegroundColor "red" $ip}
}
else
{
$Config = Get-Wmiobject win32_NetworkAdapterConfiguration -comp $dc[$i].name
for ($j=0; $j -le $config.count -1;$j++) {
if ($config[$j].IPAddress -ne $null ){
if ($ping.send($config[$j].DefaultIPGateway).status -eq "success" )
{ Write-Host -ForegroundColor "green" $config[$j].DefaultIPGateway}
else
{ Write-Host -ForegroundColor "red" $config[$j].DefaultIPGateway}
}
}
}
}

Il sera possible de profiter de la boucle principale pour rajouter des tests variés, tels que la présence ou non de services tournant sur les serveurs (DFS, antivirus, spooler)… j’y reviendrai…

Réplication DFS corrompue par FRS…

sensei.dje — Tue, 14 Jun 2011 20:40:31 +0000

Il est relativement facile de corrompre toute son architecture DFS, dans un environnement AD2003 (R2 ).
Voici quelques clés pour réduire le risque, et comment nettoyer les décombres après la catastrophe…

Microsoft est plein d’humour, ou « inattention interdite »

Offrir la possibilité de faire cohabiter 2 mécanismes de réplication différents passe encore, mais les nommer de manière quasi identique est un coup bas :
Il ne faut surtout pas confondre la console mmc de la réplication DFS (introduite en AD 2003 R2),nommée « Gestion du système de fichiers distribués DFS » avec
la console mmc de réplication FRS, nommée « Système de fichiers distribués (DFS)«
Non content de cohabiter, on peut éditer sans message d’avertissement une réplication DFS via la console FRS.
Et là, c’est cuit.

Bricoles à noter

La réplication FSR crée un dossier FRS-Staging sur c:\, pour y stocker temporairement les fichiers en cours de réplication.
Ce dossier peut grossir jusqu’à occuper tout l’espace…
La réplication DFS crée un dossier Private-DFS à l’emplacement du dossier répliqué.
Ce dossier est censé rester dans la limite fixée par la valeur paramétrée via la console DFS concernant ce membre de réplication( 4go par défaut, prévoir de l’augmenter quasiment à coup sûr). Cette limite peut être dépassée en cas de corruption massive…
DFS 2008 R2 n’est pas visible en 2003 R2 :
La mmc DFS 2008 R2 affichera sans problème les groupes de réplication créés avec 2003 R2, mais l’inverse n’est pas vrai. Attention aux effets de bords
DFS 2008 R2 : v6.0 / DFS 2003 R2 : v5.2 …

comment nettoyer une réplication corrompue

Sur chaque serveur membre de réplication :

Stopper les services ntfrs et DFS s’ils sont lancés
Lancer Regedit
HKLM / currentcontrolset / services / Ntfrs
Supprimer les entrées surnuméraires dans /ReplicaSet et /CumulativeReplicaSet
Attention, dans le cas d’un hebergement sur controleur de domaine, cette clé de registre accueille aussi les paramètres de sysvol (sous entendu, pas touche, verboten)
Supprimer les dossiers FRS-staging sur c:\ , le dossier de réplication DFS (ou ce qu’il en reste) ainsi que le partage réseau
Démarrer les services ntfrs et DFS

Et l’on prendra soin de souffler un grand coup avant de recréer sa topologie de réplication…

VBS / WMI / Recherche de PC connectés à une file d’impression particulière

sensei.dje — Fri, 10 Jun 2011 17:02:00 +0000

Cas de figure simple mais fréquent, une enquête de routine au sujet d’impressions fantômes…

Ces impressions fantômes sont probablement le fait d’un pc mal configuré, plus que de la malveillance…

Face à cela, à moins de disposer AVANT d’un écosystème de log, il faut prendre le problème à l’envers, et se demander qui est en mesure d’envoyer des jobs sur l’imprimante qui sort des documents que personne n’imprime …

En pré requis,

Configurer un partage réseau avec ACL large (tout le monde en écriture)
Rajouter l’exécution de ce bout de script dans le logon script des utilisateurs

Ensuite, tout le script repose sur une requête WMI extrêmement basique, et sur l’écriture d’un fichier.
B-a-s-i-q-u-e, mais éprouvé !

'Scan port IP pour recherche d'une cible et écriture des positifs dans un partage réseau '---------------------------------------------------------------------------------------

Set WshNetwork = WScript.CreateObject("WScript.Network")
NomMachine = WshNetwork.ComputerName
NomUtilisateur = WshNetwork.UserName

'Wscript.Echo " "

ipcible="XXX.XXX.XXX.XXX" ' <- inserer votre ip cible ici
partage="\\[votre serveur]\test_scan_port_ip\" '<-inserer votre partage réseau ici
strComputer = Nommachine

Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colPorts = objWMIService.ExecQuery _ ("Select * from Win32_TCPIPPrinterPort")

For Each objPort in colPorts
'Wscript.Echo "Description: " & objPort.Description
'Wscript.Echo "Host Address: " & objPort.HostAddress
'Wscript.Echo "Name: " & objPort.Name
'Wscript.Echo "Port Number: " & objPort.PortNumber
'Wscript.Echo "Protocol: " & objPort.Protocol
'Wscript.Echo "SNMP Community: " & objPort.SNMPCommunity
'Wscript.Echo "SNMP Dev Index: " & objPort.SnMPDevIndex
'Wscript.Echo "SNMP Enabled: " & objPort.SNMPEnabled
'wscript.echo "-------------------------------------"
if objPort.HostAddress=ipcible then
'wscript.echo "BINGO NOUS AVONS UN GAGNANT : " & NomMachine & "\" & NomUtilisateur
'<<<<<<< ECRITURE dans un fichier >>>>>>>>>>>>
'déclaration file system object
Dim fso
'instanciation
Set FSO = CreateObject("Scripting.FileSystemObject")
'on instance le fichier texte dans lequel on veut ecrire
Set Ftxt = FSO.createTextFile(partage & NomMachine & "_" & NomUtilisateur & ".txt" ,true)
'true=ecrase 'On ecrit ce que l'on veut dans le fichier
Ftxt.writeline ("Description: " & objPort.Description)
Ftxt.writeline ("Host Address: " & objPort.HostAddress)
Ftxt.writeline ("Name: " & objPort.Name)
Ftxt.writeline ("Port Number: " & objPort.PortNumber)
Ftxt.writeline ("Protocol: " & objPort.Protocol)
Ftxt.writeline ("SNMP Community: " & objPort.SNMPCommunity)
Ftxt.writeline ("SNMP Dev Index: " & objPort.SnMPDevIndex)
Ftxt.writeline ("SNMP Enabled: " & objPort.SNMPEnabled)
Ftxt.Close end if
Next
'Wscript.Echo ""

Lister les ordinateurs d’un domaine AD en powershell

sensei.dje — Tue, 07 Jun 2011 17:21:14 +0000

Petit script très basique, pour jouer avec une requête AD très simple …

$filtre = "(objectCategory=Computer)"
$domaine = New-Object System.DirectoryServices.DirectoryEntry
$chercheur = New-Object System.DirectoryServices.DirectorySearcher
$chercheur.SearchRoot = $domaine
$chercheur.PageSize = 1000
$chercheur.Filter = $filtre

# Ajout de la propriété que l'on recherche...
$prop = "name"
foreach ($i in $prop){$chercheur.PropertiesToLoad.Add($i)}

$colResults = $chercheur.FindAll()

foreach ($objResult in $colResults) {
$objItem = $objResult.Properties
# Sortie vers l'écran
write-host $objItem.name
}

L’intérêt de ce mini script réside dans la simplicité de requêtage, $filtre = « (objectCategory=Computer) », qui, associé à la connexion simplifiée à l’AD (remember vbs…) de powershell, donne accès très rapidement aux infos des objets AD.

On pourrait afficher bien plus d’informations en considérant $prop comme une collection de texte, et y rajouter d’autres noms de propriétés.

Je renvoie vers adsiedit pour la litanie des propriétés des objets AD…