Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
6185 connectés 

 


Dernière réponse
Sujet : bizarrerie vbs pour entrée de quotas (2003 server)
cvb 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 !;)

Votre réponse
Nom d'utilisateur    Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !
Le ton de votre message                        
                       
Votre réponse


[b][i][u][strike][spoiler][fixed][cpp][url][email][img][*]   
 
   [quote]
 

Options

 
Vous avez perdu votre mot de passe ?


Vue Rapide de la discussion
cvb 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 !;)
c_moa 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 :
  1. Set colDiskQuotas = CreateObject("Microsoft.DiskQuota.1" )
  2. colDiskQuotas.Initialize "f:\", True
  3. Set objUser = colDiskQuotas.AddUser("kenmyer" )
  4. Set objUser = colDiskQuotas.FindUser("kenmyer" )
  5. 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 :
  1. strComputer = "."
  2. Set objWMIService = GetObject("winmgmts:" _
  3.     & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2"
  4. Set objAccount = objWMIService.Get _
  5.     ("Win32_Account.Domain='fabrikam',Name='bob'" )
  6. Set objDisk = objWMIService.Get _
  7.     ("Win32_LogicalDisk.DeviceID='F:'" )
  8. Set objQuota = objWMIService.Get _
  9.     ("Win32_DiskQuota" ).SpawnInstance_
  10. objQuota.QuotaVolume = objDisk.Path_.RelPath
  11. objQuota.User = objAccount.Path_.RelPath
  12. objQuota.Limit = 10485760
  13. objQuota.WarningLimit = 8388608
  14. objQuota.Put_


 
 
et là pas de problème.
 
 
Si quelqu'un a une explication ...
Merci d'avance.  
 


Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)