Blog de Sys Admin

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.

Mini boite à outils VBS

sensei.dje — Tue, 21 Jun 2011 17:16:22 +0000

C’est pas toujours malin ni très folichon de réinventer le fil à couper la roue tiède, lors de la mise en service de scripts basiques et utilitaires…
Cela dit, il est commode d’avoir sous la main les briques principales, quelques grandes fonctions très récurrentes (manips de fichiers, etc) en vbs
Grosso modo, le genre de manipulations qui font apprécier powershell…

Envoi de mail

set msg = CreateObject("CDO.message")
msg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
msg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.###.###" '<==
msg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
msg.Configuration.Fields.Update

msg.From="expediteur@###.fr" ' <==
msg.To="destinataire@###.fr" '<==
msg.Subject="Sujet"
msg.TextBody="Corps du texte..." 'la propriété "addattachment" peut etre utilisée plusieurs fois...
msg.AddAttachment "c:\xXXX.xls" '<==

msg.MIMEFormatted=False
msg.Send
Wscript.echo "Message Envoyé par " & msg.From & " à " & msg.to

LECTURE d’un fichier

'déclaration file system object
Dim fso
'instanciation
Set FSO = CreateObject("Scripting.FileSystemObject")
'on instance le fichier texte
Set Ftxt = FSO.OpenTextFile("chemin")
'on parcourt chaque ligne du fichier texte
Do While Not Ftxt.AtEndOfStream
Variable = Ftxt.Readline
'...<== rajouter le code de traitement
Loop
Ftxt.Close

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("chemin",true) 'true=ecrase
'On ecrit ce que l'on veut dans le fichier
Ftxt.writeline ("All the work and no play...")
Ftxt.Close

DEPLACER un fichier

'déclaration file system object
Dim fso
'instanciation
Set FSO = CreateObject("Scripting.FileSystemObject")
'Déplacement du fichier
Set Ftxt = fso.GetFile("cheminsource")
Ftxt.move("monchemindestination") 'emplacement destination

COPIER un fichier

'déclaration file system object
Dim fso
'instanciation
Set FSO = CreateObject("Scripting.FileSystemObject")
'Copie du fichier
Set Ftxt = fso.GetFile("cheminsource")
'Fichier origine
Ftxt.copy("chemindestination") 'emplacement destination

SUPPRIMER un fichier

'déclaration file system object
Dim fso
'instanciation
Set FSO = CreateObject("Scripting.FileSystemObject")
'Suppression du fichier
Set Ftxt = fso.GetFile("cheminsource")
'Fichier origine
Ftxt.delete

LISTER les fichiers d’un dossier

Méthode pas forcement la plus efficace, face à un « cmd /k dir *.bat », mais ça dépend de l’objectif…

Const ctePourLecture = 1
Const ctePourEcrire = 2
Const ctePourAjouter = 8

Dim objFSO, objDossier, objFichier, objResultat
Dim Repertoire, NomFichierTxt

On Error Resume Next

Repertoire = "\\XXXX\scripts"
NomFichierTxt = "Resultat.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objDossier = objFSO.GetFolder(Repertoire)
Set objResultat = objFSO.CreateTextFile(("c:\" & NomFichierTxt),ctePourEcrire)

If (objDossier.Files.Count > 0) Then
For Each objFichier In objDossier.Files
If (InStr(1, objFichier.Name, ".bat", 1) > 0) Then
objResultat.WriteLine objFichier.Name
End If
Next
End If

objResultat.Close
Set objResultat = Nothing
Set objDossier = Nothing
Set objFSO = Nothing

CONCATENATION de fichiers d’un dossier

On error resume next
Dim fso,f,fd,txt,Dest
Const ForAppending=8, ForReading=1

critere = « BAT » ‘à mettre en majuscules, pour éviter les erreurs
dossier_cible = »\\XXXXscripts »
fic_cible= « C:\resultats.txt »

Set fso = CreateObject(« Scripting.FileSystemObject »)
set fd=fso.GetFolder(dossier_cible)
Set Dest=fso.OpenTextFile(fic_cible,ForAppending,true)

for each f in fd.files
If Ucase(Mid(f.Name,len(f.name)-2,3))=critere Then

Set fic=fso.OpenTextFile(fd & « \ » & f.Name,ForReading)
txt=fic.ReadAll
fic.close
Dest.Write f.name & txt & vbcrlf ‘afficher le nom du fichier & son contenu
‘ Dest.Write txt ‘afficher seulement le contenu du fichier
End if
next
Dest.Close

LECTURE d’un fichier CSV

Ne serait-ce que pour ne plus avoir besoin de bricoler ce genre de script, se mettre à powershell…
Script trouvé quelque part, gloire à son auteur !

Set FSO = CreateObject("Scripting.FileSystemObject")
Set Ftxt = FSO.OpenTextFile("liste.csv")

Do While Not Ftxt.AtEndOfStream
MaVariable = Ftxt.Readline

For Each strItem In CSVParse(mavariable)
' wscript.Echo strItem ' affiche le contenu du fichier csv, champs apres champs ...
'... inserer le code ici
Next
Loop
Ftxt.Close

Function CSVParse(ByVal strLine)
Dim arrFields
Dim blnIgnore
Dim intFieldCount
Dim intCursor
Dim intStart
Dim strChar
Dim strValue

Const QUOTE = """"
Const QUOTE2 = """"""

If (Len(Trim(strLine)) = 0) then
CSVParse = Array()
Exit Function
End If
blnIgnore = False
intFieldCount = 0
intStart = 1
arrFields = Array()
strLine = strLine & ","

For intCursor = 1 To Len(strLine)

strChar = Mid(strLine, intCursor, 1)
Select Case strChar
Case QUOTE

blnIgnore = Not blnIgnore
Case ","
If Not blnIgnore Then

ReDim Preserve arrFields(intFieldCount)

If (intCursor - intStart > 0) Then

strValue = Mid(strLine, intStart, _
intCursor - intStart)

If (Left(strValue, 1) = QUOTE) Then
arrFields(intFieldCount) = _
Replace(Mid(strValue, 2, _
Len(strValue) - 2), QUOTE2, QUOTE)
Else
arrFields(intFieldCount) = strValue
End If
Else
arrFields(intFieldCount) = Empty
End If

intFieldCount = intFieldCount + 1
intStart = intCursor + 1
End If
End Select
Next
CSVParse = arrFields
End Function

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…

DHCP et IP en powershell

sensei.dje — Sat, 18 Jun 2011 17:37:43 +0000

N’ayant pas vu (ou pas cherché bien fort) le sympathique wrapper DHCP du ScriptGuy, voici quelques scripts maison et/ou scriplets pour jouer avec des pings, manager des étendues DHCP, ou plus généralement les serveurs DHCP et l’indispensable netsh…

Ping

$ping = new-object System.Net.Networkinformation.Ping
$ping.send("[nom du serveur]")

Remarque : il est possible d’obtenir uniquement le résultat en exécutant : $ping.send(« [nm du serveur] »).status

Ping d’une plage d’adresses IP

$ping = new-object system.net.networkinformation.ping ; 10..20 | foreach { $ip = "XXX.XXX.$_.XXX" ; $ping.send($ip) } |select Address, Status

Nslookup d’une plage IP

Le nmap du pauvre, les vérifications de ports ouverts en moins …

1..255 | % { [System.Net.Dns]::GetHostByAddress("XXX.XXX.XXX.$_") } 2> Out-Null | ft

Bien veiller à remplacer les XXX …

Rajout d’une plage d’exclusion DHCP pour chaque scope DHCP

Approche itérative, dans lequel le second octet est issu d’un tableau… Le reste du script ne fait que préparer des lignes de commandes à rediriger vers un fichier .bat .
Il serait aussi possible d’exécuter chaque commande directement dans la boucle foreach avec invoke-expression (pas testé ici car powershell n’est pas installé sur le serveur dhcp, …)

$scopes=@(101,103,104,111,112,113,114,121,122,123,124,131,132,133,134,141,142,143,144,151,152,153,154)
foreach ($scope in $scopes){1..2 | % {"netsh dhcp server \\[ServeurDHCP]$_ scope XXX.$scope.0.0 add excluderange XXX.$scope.2.0 XXX.$scope.2.0"}}

Remarque : script adapté pour 2 serveurs dhcp d’où le premier foreach…

Mini challenge bash/awk vs powershell

sensei.dje — Sun, 19 Jun 2011 10:22:35 +0000

Mis au défi de faire mieux en powershell qu’en bash (et une louche d’awk) par un collègue, j’ai pondu le mini script suivant :

Défi :

Soit un fichier texte contenant des noms de serveurs, on le nommera « serveurs.txt »
Le plus simplement et efficacement possible, coder un script qui exécutera un script annexe autant de fois que de lignes dans le fichier « serveurs.txt »

Évidement, présenté comme cela, ça ne présente que peu d’intérêt, cela dit, cette méthode nous est utile pour ne pas multiplier les taches cron…

bash & awk

mon_script.sh :

echo $0

One-liner qui va bien :

awk '{print ("sh mon_script.sh " $0)}' serveurs.txt | sh

powershell

mon_script.ps1 :

write-host $arg[0]

One-liner qui va bien :

Get-Content -path serveurs.txt |%{invoke-expression "./mon_script.ps1 $_"}

Vainqueur

Pour moi c’est match nul, à moins de commencer mesquinement à compter le nombre de caractères…
Plus sérieusement, les 2 approches me semblent partager la même logique. Je doute de ne jamais pouvoir faire une comparaison de performance « brute » de traitement de chaines de caractères compte tenu des OS et serveurs physiques trop différents…

Un avis éclairé sur la question sera toujours bienvenu !!

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 ""

Wlw Erreur 806

sensei.dje — Wed, 08 Jun 2011 09:34:23 +0000

Ahum,
Windows Live Writer, au moment de publier un article, m’envoie une erreur 806 …
ça semble venir de l’html inclus dans le texte..

Une astuce quelqu’un ?

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…

C’est parti !

sensei.dje — Mon, 06 Jun 2011 17:34:31 +0000

10 print "Premier post, bienvenue à tous"

Ici l’on causera Active-Directory, petits scripts qui sauvent la vie, administration système comme sport de combat quotidien …

Un Cluster d’impression qui part en vrille, 600 files en rades ?
Un gros conflit de réplication DFS / FRS sur 50 serveurs ?
Les ACL du partage réseau USERS qui sautent, 2 To à remettre d’aplomb ?

Ah, dira-t’on jamais assez la vie trépidante des administrateurs ?

J’y passe mes journées, ça sera donc un plaisir d’en parler la nuit.

Chaque commentaire est bienvenu, en bien, en mal, en don paypal (rêvons un peu).

Je n’apprécie rien plus que « mouarf je peux faire mieux en 1 ligne d’awk et 12 grep » et le faire … et que ça marche ^^