Calcul de la taille du profil de l'utilisateur courant à la connexion.

Marsh Posté le 01-08-2007 à 16:54:31

Bonjour, à l'approche d'une grosse migration (qui a dit Vista ??) je souhaiterai exécuter un script à l'ouverture de session des utilisateurs d'un domaine afin de récupérer la taille de leur profil (en Mégaoctets).

Cela me permettra d'allouer l'espace disque nécessaire sur un serveur pour sauvegarder tous les profils pendant la migration.

Voilà ou j'en suis pour le moment.

Code :

Dim fileObject, file
Set WshShell = WScript.CreateObject("WScript.Shell" )
Set WshSysEnv = WshShell.Environment("SYSTEM" )
Set UserProfile = WshSysEnv("USERPROFILE" )
Set fileObject = CreateObject("Scripting.FileSystemObject" )
Set file = fileObject.GetFolder("UserProfile" )
MsgBox file.name & " - " & file.size & "octets."

Inutile de préciser que ça ne fonctionne pas.

Le problème semble provenir de la manière dont je récupère la variable d'environnement correspondant à l'adresse de répertoire (ligne 7).

Si quelqu'un a une idée de la marche à suivre ...

Message édité par max-k01 le 01-08-2007 à 16:55:05

Marsh Posté le 01-08-2007 à 16:54:31

Marsh Posté le 01-08-2007 à 16:57:48

Je précise que quand je fais ceci :

Code :

Set WshShell = WScript.CreateObject("WScript.Shell" )
Set WshSysEnv = WshShell.Environment("SYSTEM" )
WScript.Echo WshSysEnv("NUMBER_OF_PROCESSORS" )

La valeur de la variable en question s'affiche.

Mais quand je fais cela :

Code :

Set WshShell = WScript.CreateObject("WScript.Shell" )
Set WshSysEnv = WshShell.Environment("SYSTEM" )
WScript.Echo WshSysEnv("USERPROFILE" )

Rien ne s'affiche.

Le problème vient peut-être de la longueur de la chaine ou peut-être des espaces ... à creuser.

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *