bizarrerie vbs pour entrée de quotas (2003 server)

Marsh Posté le 24-02-2005 à 13:14:14

Situation : (2 serveur 2003) + domaine + AD
Objet : création d'entrées de quotas par script VBS.

Je pensais ajouter le code suivant à mes scripts vbs générant les comptes utilisateurs ( propriétés, groupes, etc. )

Code :

Set colDiskQuotas = CreateObject("Microsoft.DiskQuota.1" )
colDiskQuotas.Initialize "f:\", True
Set objUser = colDiskQuotas.AddUser("kenmyer" )
Set objUser = colDiskQuotas.FindUser("kenmyer" )
objUser.QuotaLimit = 50000000

Ce code est inséré dans une boucle Do while ... Loop et génère correctement le quota pour le 1er utilisateur d'une liste sous forme de fichier XLS.
Mais il semble alors y avoir un temps de "latence" qui plante le script, sans message d'erreur WSH.

Ce code ne semble pourtant pas réservé pour un utilisateur local ?

J'ai remplacé le code par

Code :

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2"
Set objAccount = objWMIService.Get _
("Win32_Account.Domain='fabrikam',Name='bob'" )
Set objDisk = objWMIService.Get _
("Win32_LogicalDisk.DeviceID='F:'" )
Set objQuota = objWMIService.Get _
("Win32_DiskQuota" ).SpawnInstance_
objQuota.QuotaVolume = objDisk.Path_.RelPath
objQuota.User = objAccount.Path_.RelPath
objQuota.Limit = 10485760
objQuota.WarningLimit = 8388608
objQuota.Put_

et là pas de problème.

Si quelqu'un a une explication ...
Merci d'avance.

Marsh Posté le 24-02-2005 à 13:14:14

Marsh Posté le 25-02-2005 à 23:24:40

perso, je suis incapable, de te dire pourquoi ! par contre, est-ce que tu as reperé le moment ou ton code "ralenti" ? ca peut aider !

Sujets relatifs:

Leave a Replay

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

Name *

Email *

URL

Message *