[F.A.Q.] RSL Registry Size Limite

pour-cps-outils-script-adm
1

Voici une petit coupe cmd/vbs pour lister la conf et l’utilisation du registre.



créer deux fichier rsl.cmd et rsl.vbs sur un serveur CSP et copier les code ci-dessous. Enfin lancer le cmd dans une fenêtre dos.




@echo off

for /f "tokens=1 skip=3" %i in ('qfarm /load') do cscript //nologo   rsl.vbs %i





on error resume next







strComputer = WScript.Arguments(0)







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



Set colItems = objWMIService.ExecQuery("Select * from Win32_Registry")







For Each objItem in colItems



     Wscript.Echo strComputer & vbtab &"Current Size: " & objItem.CurrentSize & vbtab & "Maximum Size: " & objItem.MaximumSize



Next


voila le résultat pour moi:


for /f "tokens=1 skip=3" %i in ('qfarm /load') do cscript //nologo   N:toolget_registry_string.vbs %i



FSM10   Current Size: 89        Maximum Size: 153



FSM11   Current Size: 74        Maximum Size: 153



FSM12   Current Size: 87        Maximum Size: 153



FSM14   Current Size: 36        Maximum Size: 153



FSM15   Current Size: 30        Maximum Size: 153



FSM16   Current Size: 32        Maximum Size: 153



FSM17   Current Size: 28        Maximum Size: 153



FSM18   Current Size: 29        Maximum Size: 153



FSM19   Current Size: 46        Maximum Size: 153



FSM21   Current Size: 28        Maximum Size: 153



FSM24   Current Size: 27        Maximum Size: 153



FSM25   Current Size: 28        Maximum Size: 153



FSM26   Current Size: 43        Maximum Size: 153



FSM27   Current Size: 67        Maximum Size: 153



FSM28   Current Size: 28        Maximum Size: 153



FSM29   Current Size: 32        Maximum Size: 153



FSM30   Current Size: 68        Maximum Size: 153



FSM41   Current Size: 69        Maximum Size: 153



PIXID01 Current Size: 27        Maximum Size: 153
2

Moi j’avais fait ça :

génération d’un fichier CSV par rapport à la liste des serveurs dans le fichier listeCitrix.txt

Fichier lanceur.cmd

"c:ScriptTailleRegistres.vbs"  "c:ListeCitrix.txt"


Fichier Tailleregistres.vbs
On Error Resume Next

'fonction de Lancement d'un Shell

Const ForReading = 1, ForAppending = 8

Dim strDirectory, strFile

strDirectory = "c:Script"

strFile = "TailleRegistres_" & day(now()) & "_" & month(now()) & "_a_" & hour(now()) & "h" & minute(now()) & ".csv"

' Récupération du listing de machine

PATH = WScript.Arguments.Item(0)

If PATH  "" or PATH  " " Then

' Ouverture Fichier

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objTextFile = objFSO.OpenTextFile(PATH, ForReading)

Set objTextFile2 = objFSO.OpenTextFile (strDirectory & strFile, ForAppending, True)

objTextFile2.WriteLine "Nom Machine; Taille Courante; Taille Maximum; Type de machine; Taille Proposée; Status; %"

' Lecture du fichier jusqu'a la fin

Do Until objTextFile.AtEndOfStream

FromFile = objTextFile.Readline

strComputer = FromFile

'wscript.echo "***************** " & strComputer & " *****************"

Set objWMIService = GetObject("winmgmts:\" & strComputer & "rootcimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_Registry",,48)

For Each objItem in colItems

    Pourcentage = objItem.CurrentSize / objItem.MaximumSize

    Pourcentage = Pourcentage * 100

    objTextFile2.WriteLine strComputer & ";" & objItem.CurrentSize & ";" & objItem.MaximumSize & ";" & objItem.Name & ";" & objItem.ProposedSize & ";" & objItem.Status & ";" & Pourcentage

Next

Loop

objTextFile2.Close

End If


Mais comme tu as fait en passant par le qfarm c'est pas mal ;) :
Fichier lanceur.cmd


@echo off

del /y listecitrix.txt



for /f "tokens=1 skip=3" %i in ('qfarm /load') do echo %i >> listecitrix.txt

"c:ScriptTailleRegistres.vbs"  "c:scriptListeCitrix.txt"

{/code]