Untenstehendes Script baut aus einem quotalist.txt File ein bat File zusammen, welches danach auf einem 2003 oder 2008 Fileserver importiert, resp. ausgeführt werden kann. Es werden Templates, individuelle Quotas und Limits gesetzt. Weiter Anpassungen können entsprechend vorgenommen werden.

Als erstes muss das quotalist.txt File generiert werden. Dies erfolgt über dirquota

dirquota quota list > c:\qutalist.txt

Das vbs liest nun die entsprechenden Werte aus dem Textfile aus und baut ein entsprechendes bat File auf.

Set fs=CreateObject("Scripting.FileSystemObject")
Set f=fs.OpenTextFile("C:\quotalist.txt", 1)
set ft=fs.CreateTextFile("C\createQuotas.bat",true)
 
do while f.AtEndOfStream = false
   textline = f.ReadLine
   if InStr(textline,"Quota Path:") then
      QuotaPath = Split(textline)
   end if
   if inStr(textline, "Source Template:") then
      SourceTemplate = Split(textline)
   end if
   if inStr(textline, "Limit:") then
      Limit = Split(textline)
      splitLimit = split(Limit(18), ".")
      ft.WriteLine("dirquota quota add /Path:" & QuotaPath(14) & " /SourceTemplate:""" & sourceTemplate(9) & """ /Limit:" & splitLimit(0) + LCase(Limit(19)) & " /Type:Hard")
   end if
loop
 
f.Close
Set f=Nothing
Set fs=Nothing
Share