La ligne de code principale est la suivante :

(Get-ChildItem -Path "C:\mesScripts" -Recurse | measure-object Length -sum).Sum

C’est bien jolie et fonctionnel mais à caser dans une boucle ou une condition, ça prend de la place … Me fallait donc faire ma petite fonction pour rendre ça plus fonctionnel, la voilà :

Function ArboSize([string]$FolderPath, [string]$frmt)
{
 $MySize = (Get-ChildItem -Path $FolderPath -Recurse | measure-object Length -sum).Sum

 Switch ($frmt) {
 kb {Return [double]($MySize/1KB)}
 mb {Return [double]($MySize/1MB)}
 gb {Return [double]($MySize/1GB)}
 tb {Return [double]($MySize/1TB)}
 default {Return [double]$MySize}
 }
}

Il suffit d’appeler la fonction comme suit :

ArboSize <chemin> <format>

format disponnible : “kb” – “mb” – “gb” – “tb”. Si omis, le résultat sera en bits. Cette option est à choisir si vous devez effectuer une/des opération(s) arithmétique.

Aller, un petit exemple pour bien situer. La 2ème ligne, c’est pour formater la sortie avec 2 chiffres après la virgule (1,23)

$FolderSize = ArboSize "C:\mesScripts" "mb"
"{0:N2}" -f $FolderSize

Prérequis

Comment installer et exécuter PowerShell sur un système Windows

Exécuter un script en PowerShell

Code

$SmtpClient = new-object  system.net.mail.smtpClient
$SmtpServer = "localhost"
$SmtpClient.host =
$SmtpServer 

$From = "Lecteur de SysKB <lecteur@exemple.fr>"
$To = webmaster@syskb.com
$Title = "Script Powershell"
$Body = "Le mail a été envoyé"
$SmtpClient.Send($from,$to,$title,$Body) 

Prérequis

Comment installer et exécuter PowerShell sur un système Windows

Exécuter un script en PowerShell

Auteur

Microsoft Scripting Guys

Référence

http://www.microsoft.com/technet/scriptcenter/scripts/msh/default.mspx?mfr=true

Code

$strComputer = "."

$colItems = get-wmiobject -class "Win32_NTDomain" -namespace "root\CIMV2" `
-computername $strComputer

foreach ($objItem in $colItems) {
      write-host "Caption: " $objItem.Caption
      write-host "Client Site Name: " $objItem.ClientSiteName
      write-host "Creation Class Name: " $objItem.CreationClassName
      write-host "DC Site Name: " $objItem.DcSiteName
      write-host "Description: " $objItem.Description
      write-host "DNS Forest Name: " $objItem.DnsForestName
      write-host "Domain Controller Address: " $objItem.DomainControllerAddress
      write-host "Domain Controller Address Type: " $objItem.DomainControllerAddressType
      write-host "Domain Controller Name: " $objItem.DomainControllerName
      write-host "Domain GUID: " $objItem.DomainGuid
      write-host "Domain Name: " $objItem.DomainName
      write-host "DS Directory Service Flag: " $objItem.DSDirectoryServiceFlag
      write-host "DS DNS Controller Flag: " $objItem.DSDnsControllerFlag
      write-host "DS DNS Domain Flag: " $objItem.DSDnsDomainFlag
      write-host "DS DNS Forest Flag: " $objItem.DSDnsForestFlag
      write-host "DS Global Catalog Flag: " $objItem.DSGlobalCatalogFlag
      write-host "DS Kerberos Distribution Center Flag: " $objItem.DSKerberosDistributionCenterFlag
      write-host "DS Primary Domain Controller Flag: " $objItem.DSPrimaryDomainControllerFlag
      write-host "DS Time Service Flag: " $objItem.DSTimeServiceFlag
      write-host "DS Writable Flag: " $objItem.DSWritableFlag
      write-host "Installation Date: " $objItem.InstallDate
      write-host "Name: " $objItem.Name
      write-host "Name Format: " $objItem.NameFormat
      write-host "Primary Owner Contact: " $objItem.PrimaryOwnerContact
      write-host "Primary Owner Name: " $objItem.PrimaryOwnerName
      write-host "Roles: " $objItem.Roles
      write-host "Status: " $objItem.Status
      write-host
}

strMyPath = Left(Wscript.ScriptFullName,InStrRev(Wscript.ScriptFullName, "\"))

Dans mes scripts PoSH, je cherchais une solution similaire mais “Wscript.ScriptFullName” n’existe pas et n’a (semble t-il) pas d’équivalent. La ruse consiste donc à utiliser la propriété “CurrentDirectory” de l’objet “Shell” …

$MyPath = ($WShell = New-Object -ComObject Wscript.Shell).CurrentDirectory

Et, pour un peu, c’est presque plus simple !

Ouvrez l’interpréteur Powershell et exécutez le code script suivant:

Get-WmiObject -Class Win32_BIOS -NameSpace "root\CIMV2" -ComputerName [Nom_Ordinateur]

et remplacer [Nom_Ordinateur] par le nom de la machine Windows distante.

Évidement, il faut installer PrimalForms. Rendez-vous sur le site de SAPIEN Technologies pour le télécharger. L’installation en elle même s’effectue sans problème.

Nous allons faire un petit soft (un script en réalité) sans prétention qui va juste lister les membres d’un groupe locale sur l’ordinateur courant. Nous allons voir que le bout de code dédier au listage des membres à proprement parlé est tout petit comparé à tout le code nécessaire pour générer le formulaire. C’est là que nous nous rendons compte finalement de l’utilité d’un tel logiciel. Bon, si vous êtes prêt, on y va !

1 – Création du formulaire

Lancer PrimalForms. Dans la partie gauche de la fenêtre se trouve les contrôles. Se sont les “objets” à placer sur le formulaire (champs de saisie, bouton, liste de choix …). Dans la partie du milieu se trouve le formulaire. C’est là que nous plaçons par glissé-déplacé les contrôles dont nous avons besoin. Dans la partie de droite se trouve les propriétés associées à chacun des contrôles et aussi de l’objet formulaire.

Nous allons avoir besoin des contrôles suivants : 1 label, 1 textBox, 1 button et 1 richTextBox.

Nous utiliserons le “textBox” pour saisir le nom du groupe dont on souhaite lister les membres, le “button” pour lancer le recherche et enfin le “richTextBox” pour afficher le résultat.

Placer les contrôles sur le formulaire afin d’obtenir quelque chose qui ressemble à ça (en mode création) :

Après avoir modifié les propriétés (dans la partie à droite de la fenêtre) de chacun des contrôles comme indiqué ci-dessous :

Pour “form1″ :  Text : Et les membres sont …

Pour “button1″ :  Text : Va chercher !

Pour “label1″ :  Text : Nom du groupe

Pour “richTextBox1″ :  ScrollBars : Vertical

Ceci étant fait, on enregistre notre boulot à l’aide du bouton SaveAs, pour sauvegarder notre projet, puis on clique sur Export PowerShell pour enregistrer le script que génère PrimalForms.

2 – Ajout des actions

Ouvrez le script généré par PrimalForms avec votre éditeur préféré.Vous devriez vous retrouver avec un script qui fait environ 125 ligne. Hé oui, quand même ! Y nous a bien aidé le PrimalForms !

Si on prend le temps de détailler un peu, on voit que le code n’est pas mal fait et ne contient rien de futile. On remarquera vers la ligne 29 le commentaire suivant :

#TODO: Place custom script here

Oui, c’est bien là que nous allons placer notre bout de code à nous (bon, qu’on a pompé sur le Net…)

Donc on fait une petite recherche sur le Net “powershell Listing local group members” via Google et hop ! en 2ème position on trouve notre bonheur avec le bout de code suivant :

$group =[ADSI]"WinNT://./Administrators"
$members = @($group.psbase.Invoke("Members"))
$members | foreach {$_.GetType().InvokeMember("Name", 'GetProperty', $null, $_, $null)}

Il ne nous reste plus qu’à l’adapter pour l’intégrer dans notre formulaire et déclencher l’action en fonction du groupe indiqué.

En regardant le code de notre formulaire, aux alentours des lignes 14 à 21, on peut noter le nom des variables objets utilisés. On voit que le champs de saisie du nom du groupe à pour nom de variable $textBox1. Il nous faut donc récupérer le contenu de cet objet pour provoquer la cherche l’aide de la propriété .text de cet objet. La première ligne du bout code que l’on va insérer va commencer comme ça :

$GroupName = [string]$textBox1.text

Quand on va cliquer sur “Va chercher !” $GroupName va prendre pour valeur le contenu de $textBox1 converti en chaine de caractère grâce à [String].

Ensuite nous devons modifier la ligne du code “$group =[ADSI]“WinNT://./Administrators”” pour que “Administrators” soit remplacé par notre recherche à nous. On obtiendra une ligne de code comme suit :

$group =[ADSI]"WinNT://./$GroupName"

On a pas besoin de modifier la ligne $members = @($group.psbase.Invoke(“Members”)) on la laisse telle quelle.

Enfin, pour finir il faut que la sortie de notre code se fasse dans la zone prévue à cet effet, le $richTextBox1. On va donc modifier la dernière ligne du bout code qu’on a trouvé pour obtenir le résultat attendu comme suit (notez le petit “+`n” à la fin de ligne qui va gérer le retour chariot) :

foreach ($mem in $members) {
$richTextBox1.text += $mem.GetType().InvokeMember("Name", 'GetProperty', $null, $mem, $null)+"`n"
}

Au final on doit donc obtenir le code suivant :

$GroupName = [string]$textBox1.text
$group =[ADSI]"WinNT://./$GroupName"
$members = @($group.psbase.Invoke("Members"))
foreach ($mem in $members) {
$richTextBox1.text += $mem.GetType().InvokeMember("Name", 'GetProperty', $null, $mem, $null)+"`n"
}

Il ne nous reste plus qu’à le coller tout ça dans le code de notre formulaire (au niveau de la ligne 30 dans mon cas)

29 | #TODO: Place custom script here
30 |   LE CODE DOIT ÊTRE COLLE ICI
31 | }

On doit donc obtenir ça :

29 | #TODO: Place custom script here
30 | $GroupName = [string]$textBox1.text
31 | $group =[ADSI]"WinNT://./$GroupName"
32 | $members = @($group.psbase.Invoke("Members"))
33 | foreach ($mem in $members) {
34 |     $richTextBox1.text += $mem.GetType().InvokeMember("Name", 'GetProperty', $null, $mem, $null)+"`n"
35 | }
36 | }

Enregistrez puis exécutez votre code comme vous en avez l’habitude. Si vous faites l’essai sur le groupe “Administrateurs” vous devriez, en principe, obtenir un résultat.

Si vous cliquez sur “Va chercher !” alors que le champs “Nom du groupe” est vide, il va nous générer une erreur … que nous devons, en bon scripteur, gérer.

#TODO: Place custom script here
$GroupName = [string]$textBox1.text
If (!$GroupName) {$richTextBox1.text = "Le champs Nom du groupe ne peut être null"}
Else {
    $richTextBox1.text = ""
    $group =[ADSI]"WinNT://./$GroupName"
    $members = @($group.psbase.Invoke("Members"))
    foreach ($mem in $members) {
        $richTextBox1.text += $mem.GetType().InvokeMember("Name", 'GetProperty', $null, $mem, $null)+"`n"
    } # Fin du bloc ForEach
} # Fin du bloc Else
} # Fin de la procédure $button1_OnClick (TODO ...)

3 – Conclusion

Bon, rien de vraiment compliqué pour qui est à l’aise avec le scripting. En fait, on arriverai presque à le comparer au HTA (en [beaucoup] mieux quand même !). Au début j’ai cherché un peu pour récupérer le contenu de ma variable $textBox1. Mais après je me suis sentie assez vite à l’aise. Reste plus qu’à trouver un équivalent à VBS2EXE pour avoir un semblant de “redistribuable”. Intéressant pour un gars comme moi qui doit proposer et développer des solutions “cadrés” d’industrialisation de processus …

Pas mal fait, gratuit, il génère le code nécessaire pour obtenir un résultat plutôt bluffant.

Dans la partie de gauche, choisissez puis positionnez vos contrôles sur le Form, adaptez les propriétés de chacun d’eux dans la partie de droite et enfin allez dans le menu “Export” pour enregistrer  le code généré. Éditez-le et placer votre code juste sous le commentaire “#TODO: Place custom script here”.

Dès que j’aurai l’occasion de m’en servir, j’en ferai un petit tutoriel.    (–> Télécharger PrimalForms C E <–)

La gestion de mes mots de passe devenant un “chouillat” compliquée (toujours à cause de ma mémoire de poisson rouge) je me suis fait un petit script VBS qui me change mon mot de passe en un coup sur tous les domaines des fôrets AD.

Seul pré-requis : le mot de passe doit être (et sera) le même sur tous les environnements pour que le script accepte de s’exécuter.

Le fonctionnement est simple. J’utilise mon compte au format “domaine\utilisateur” avec l’ancien mot de passe pour effectuer une connexion sur l’AD cible, puis j’affecte mon nouveau mot de passe à mon objet utilisateur. Le script s’appuie sur un fichier de configuration (à enregistrer dans “C:\ChangeMDP\ListAccount.txt”) construit de la façon suivante :

## ======================================================================================
##
#### RAPPEL : TOUS LES MDP DOIVENT AU PRÉALABLE ÊTRE UNIFORME ET DÉJÀ LES MÊMES
##
## ======================================================================================
## DOMAINE DE RECETTE
@_IP_DC_CIBLE;domain\login_adm;distiguishedName du compte dont on doit changer le mdp
## DOMAINE D'HOLOGATION
@_IP_DC_CIBLE;domain\login_adm;distiguishedName du compte dont on doit changer le mdp
........ etc .......
## ======================================================================================

Après avoir paramétré ce fichier, le script sera à même de changer vos mots de passe en un clique

.

J’ai donc développé un petit script VBS en avec une interface graphique en HTA pour me faciliter le travail … (testé sur des serveurs Win 2003 anglais)

Télécharger le fichier

Tous les administrateurs qui manipulent des GPO ont été confrontés à cette problématique. Ils viennent de faire une modification importante et souhaitent qu’elle soit aussitôt prise en compte par l’ensemble des clients connectés plutôt que d’attendre le délai de rafraîchissement de la GPO qui peut varier de 90 à 120mn selon le paramétrage.

C’est en me baladant sur le très bon site GPOGuys.com que j’ai découvert l’outil Command-line Remote GPO Refresh, un outil en ligne de commande qui permet d’actualiser les stratégies de groupe sur une machine distante.

Côté utilisation c’est très simple, une fois que vous avez téléchargé l’archive et extrait l’exécutable Rgprefresh.exe, lancez le depuis une invite de commande avec les paramètres adéquat.

Ainsi pour afficher tous les paramètres disponible tapez :

Rgprefresh.exe /?

Pour forcer la mise à jour des stratégies sur une machine distante tapez:

Rgprefresh.exe /m:COMPUTERNAME /n /force

Pour forcer la mise à jour des stratégies utilisateurs sur une machine distante tapez:

Rgprefresh.exe /m:COMPUTERNAME /t:User /n /force

Dans les 2 exemples précédents nous avons forcé la mise à jour des stratégies sur 1 machine distante. Pour le faire sur plusieurs machines nous utiliserons les providentielles commandes MSDOS DO et FOR.

Pour forcer la mise à jour des stratégies sur une liste de machines dans un fichier liste.txt:

FOR /F %i in (c:\liste.txt) DO Rgprefresh.exe /m:%i /n /force

Pour forcer la mise à jour des stratégies sur toutes les machines de la plage IP 192.168.0.100 à 192.168.0.200 :

FOR /L %i in (100,1,200) DO Rgprefresh.exe /m:192.168.0.%i /n /force

Ce n’est pas plus compliqué et j’espère que cette astuces vous sera utile.

Set oShell = CreateObject("WScript.Shell")
Const SUCCESS = 0
sUser = "Administrateur"
sPwd = "NouveauMotDePasse"
Set oWshNet = CreateObject("WScript.Network")
sComputerName = oWshNet.ComputerName
Set oUser = GetObject("WinNT://" & sComputerName & "/" & sUser)
oUser.SetPassword sPwd
oUser.Setinfo
oShell.LogEvent SUCCESS, "Mot de passe du compte administrateur local changé"

Mais dans les entreprises l’administration des ordinateurs d’un domaine est confiée à des techniciens qui ne sont pas toujours administrateurs du domaine. Il est donc nécessaire d’ajouter le groupe dédié aux techniciens dans le groupe Administrateurs local de l’ordinateur. La solution la plus courante pour effectuer ce type d’opération consiste à utiliser un VBScript qui sera exécuté via un Logonscript ou une GPO.

Le script suivant permet d’ajouter un groupe d’un domaine Active Directory dans le groupe Administrateurs local de la machine qui l’exécute:

option Explicit
Dim objGroup
Dim strComputer
On Error Resume Next
strComputer = "."
Set objGroup = GetObject("WinNT://" & strComputer &  "/Administrateurs,group")
objGroup.add("WinNT://DOMAINE/NOMDUGROUPE,group")
Set objGroup = Nothing

Remplacez DOMAINE par le nom de votre Domaine et NOMDUGROUPE par le nom du groupe PRE Windows 2000 du groupe à ajouter.

Vous pouvez ensuite lancer ce script via une GPO ou l’intégrer au script d’ouverture de session de vos stations.

Créer une tâche planifiée à distance

Inutile de chercher bien loin puisque le planificateur de tâche intégré à Windows schtasks.exe peut s’utiliser en ligne de commande avec une multitude de paramètres dont certains sont dédiés à la création de tâches à distance.

Pour utiliser schtasks.exe ouvrez une invite de commande (Presser WIN + R et tapez cmd).

Vous pouvez ensuite afficher l’aide sur la création de tâches avec schtasks.exe

schtasks.exe /create /?

Pour créer une tâche sur un serveur distant

schtasks.exe /create /S Nom_du_serveur /U domaine\utilisateur /P mot_de_passe  /SC fréquence /TR Fichier_de_commandes

Automatiser la création d’une tâche planifiée sur plusieurs serveurs

Maintenant que l’on sait comment créer une tâche planifiée à distance il est assez simple de répéter l’opération sur plusieurs systèmes distants, toujours depuis une invite de commande, et ceux grâce aux commandes FOR, IN et DO.

Dans l’exemple qui suit je vais créer une même tâche planifiée sur tous les serveurs contenu dans un fichier list.txt.

FOR /F %1 IN (list.txt) DO schtasks.exe /create /S %1 /U domaine\utilisateur /P mot_de_passe  /SC fréquence /TR Fichier_de_commandes

Comme vous pouvez le constater en une seule ligne de script je peux créer une tâche planifiée sur autant de serveur que je souhaite, 10, 20, 100, 1000 …

Dans ce 2ème exemple je créé une tâche planifiée sur tous les serveurs contenu dans la plage IP 192.168.0.25 à 192.168.0.125. La valeur située entre le 25 et le 125 définit le pas à suivre (25, 26, 27, … , 125)

FOR /L %i IN (25,1,125) DO schtasks.exe /create /S 192.168.0.%1 /U domaine\utilisateur /P mot_de_passe  /SC fréquence /TR Fichier_de_commandes

Pour conclure

Faire 100 fois la même opération peut vite s’avérer ennuyeux et chronophage. Chercher une solution, la tester et la mettre en œuvre m’a pris à peine 30mn. Même si je sais que certains commerciaux n’hésiteraient pas à facturer une 1/2 journée de prestation à un client, il était hors de question pour ma santé mentale que je passe autant de temps. Rappelez-vous un bon administrateur est un administrateur fainéant !

Dans cette exemple des lignes seront considérées comme des doublons si les valeurs des colonnes 1 ET 2 sont identiques. Ces 2 valeurs sont représentées dans le script par les variables word1 et word2.  A la fin du script les lignes dupliquées sont tout simplement supprimées.

Sub RemoveDuplicate()

Sheets(1).UsedRange.EntireRow.Sort Key1:=Range("A1"), Key2:=Range("B1")

i = 1: j = 1
Sheets(1).Select
While Cells(i, 1).Value <> ""
 word1 = Cells(i, 1).Value
 word2 = Cells(i, 2).Value

 j = i + 1
 If Cells(i, 2).Value <> "ERASE" Then
 While Cells(j, 1).Value <> ""
 If Cells(j, 1).Value = word1 And Cells(j, 2).Value = word2 Then
 Cells(j, 3).Value = "ERASE"
 End If
 j = j + 1
 Wend
 End If
i = i + 1
Wend

For j = i To 1 Step -1
 If Cells(j, 3).Value = "ERASE" Then
 Rows(j).Select
 Selection.Delete Shift:=xlUp
 End If
Next j

End Sub

Dans ce deuxième exemple seule la valeur de la colonne 1 de chaque ligne sera utilisée comme condition. Par contre à la fin du script, contrairement à l’exemple précédent, seules les doublons seront conservés !

Sub RemoveDuplicate()

Sheets(1).UsedRange.EntireRow.Sort Key1:=Range("A1"), Key2:=Range("B1")

i = 1: j = 1
Sheets(1).Select
While Cells(i, 1).Value <> ""
 word1 = Cells(i, 1).Value

 j = i + 1
 If Cells(i, 2).Value <> "ERASE" Then
 While Cells(j, 1).Value <> ""
 If Cells(j, 1).Value = word1 Then
 Cells(j, 2).Value = "ERASE"
 End If
 j = j + 1
 Wend
 End If
i = i + 1
Wend

For j = i To 1 Step -1
 If Cells(j, 2).Value <> "ERASE" Then
 Rows(j).Select
 Selection.Delete Shift:=xlUp
 End If
Next j

End Sub

Maintenant à vous de composer selon votre besoin, j’espère dans tous les cas que ces petites macros vous feront gagner beaucoup de temps !

PsExec est un outil en ligne de commande fournit dans la suite PsTools de chez Sysinternals. Il permet d’exécuter à distance des commandes, des programmes, des batches, comme si vous étiez connecté sur le serveur distant. Cet outil est très prisé des administrateurs pour son efficacité et parce qu’il permet d’économiser beaucoup de temps … surtout lorsqu’il s’agit d’effectuer des tâches rébarbatives.

Installation et utilisation

Côté installation c’est très simple. Téléchargez la suite PsTools et placez psexec.exe par exemple dans le C:\ de votre station d’administration ou d’un serveur.

Ouvrez ensuite une invite de commande et tapez psexec.exe /? pour afficher les options disponibles.

Voici maintenant quelques exemples d’utilisation de PsExec

• Pour copier puis pour éxécuter le programme hotfix.exe un serveur

psexec \\server1 -c hotfix.exe

• Pour arrêter le service spooler sur le serveur distant \\SERVER2

psexec \\server2 net stop spooler

• Pour lancer Internet Explorer sur votre machine locale avec des droits limités:

psexec -l -d "c:\program files\internet explorer\iexplore.exe"

• Pour lancer un programme sur plusieurs serveurs à la fois

Pour lancer un programme sur plusieurs serveurs distants à la fois il faut tout d’abord créer un référentiel des serveurs sur lesquels seront exécutés le programme. Pour cela je créé simplement un fichier list.txt contenant un serveur par ligne.

SRV01
SRV02
SRV03
SRV04

Il faut ensuite créer un fichier batch qui balayera le fichier list.txt et exécutera la commande désirée pour chacun des serveurs référencés. J’ajoute le code suivant dans un fichier nommé RemoteStopSpooler.bat

for /F %%1 IN (list.txt) do psexec.exe \\%%1 net stop spooler

Il suffit de lancer RemoteStopSpooler.bat pour arrêter le service d’impression sur les serveurs SRV01 à SRV04. Et la j’ai vraiment gagner du temps !