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.
