Users/Groups Delete Disabled Users Delete Disabled Users Enum. Users Enum. Users Delete Users Add Users Enum. Groups Enum. Groups Change Groups Add Group Active Directory Enum. AD Groups Enum. AD Users List AD Users w/Prop Join AD Users NIC/IP Addresses Get IP Addresses Get IP Addresses Backup and Restore IP's Add IP's NIC Settings OS/Hardware OS Info Script OS Info Script All OS Info Script All OS System Count Hardware Info Script Hardware Info Script #1 Hardware Info Script #2 CPU Settings Enum. Printers Disk Quotas Disable Disk Quota Enable Disk Quota Disk Quota Query Disk Quota Update Shares/Files/Sessions Enum. Shares Enum. Shares Enum. All Shares Enum. Open Files Enum. Open Files Enum. Open Sessions Others Servers Uptime DNS Stuff Services Enum Services Enum Enum Processes Enum Hot Fixes MS FTP Server FTP VD Query FTP VD Delete FTP Site Enum. MS WWW Server WWW Site Enum. Enum Mime Types Enum Mime Types Application Pools Application Pool Enum Application Pool Enum Create Application Pool Create Application Pool Delete Application Pool Enum Apps in App Pool Enum App Pool Settings Move Apps Between App Pools Others IIS Component Probe IIS Status Enum SQL Dbases Backup SQL Dbases Orphan SQL Users List AD/WG My AD/WG Name My PC Name Enum AD Computers Contact Us Form SM Login Form Code Imail Login Form Code Enum. Domains in Imail Enum. Users in Imail CDONTS Component CDOSYS Component SA SMTP Component App Pool Monitor Ping and Tracert Hard Drive Monitoring Uptime Monitoring Desktop Lock CD Key Revealer MIK Restarter Site Map About the Site RSS Feeds I Read Custom Scripts Visitor #:     windowsadminscripts.com www     Script: Enable Disk Quota This script will enable the Disk Quota feature. It will also enables the logging options. '************************************************************* ' Script Witten by Larry Heintz ' February 2006 www.windowsadminscripts.com ' This script will enable the Disk Quota feature. It will also ' enables the logging options. '************************************************************* Dim driveletter,DefaultQuotaLimit Dim objStdOut,objStdIn Set objStdOut = Wscript.stdOut Set objStdIn = Wscript.stdIn Call getDriveLetter Sub getDriveLetter objStdOut.write "Drive Letter to enable Disk Quota: " driveletter = ucase(objStdIn.readline) Select Case len(driveletter) Case 1 driveletter = driveletter & ":\" Call getQuotaLimit (driveletter) Case Else wscript.echo "*** The script has ended due to no Drive Letter being entered. ***" objStdIn.close objStdOut.close wscript.quit End Select End Sub Sub getQuotaLimit (driveletter) objStdOut.write "Default Quota for " & driveletter & " drive (in MB): " defaultquotalimit = objStdIn.readline Select Case len(defaultquotalimit) Case 0 wscript.echo "*** The script has ended due to no Quota Limit being entered. ***" objStdIn.close objStdOut.close wscript.quit Case Else defaultquotalimit = (defaultquotalimit*1024*1024) queryDiskQuotas driveletter,defaultquotalimit End Select End Sub Sub queryDiskQuotas (driveletter,defaultquotalimit) Set colDiskQuotas = CreateObject("Microsoft.DiskQuota.1") Dim colDiskQuotas colDiskQuotas.Initialize driveletter, False Select Case colDiskQuotas.QuotaState Case 0 enableDiskQuotas driveletter setDiskQuotas driveletter,defaultquotalimit Case Else wscript.echo "Disk Quota has already been enabled on " & driveletter wscript.quit End Select Set colDiskQuotas = nothing End Sub Sub enableDiskQuotas (driveletter) Dim colDiskQuotas Const ENABLE_QUOTAS = 2 Set colDiskQuotas = CreateObject("Microsoft.DiskQuota.1") colDiskQuotas.Initialize driveletter, True colDiskQuotas.QuotaState = ENABLE_QUOTAS Set colDiskQuotas = nothing wscript.echo "Disk Quota has been enabled on " & driveletter End Sub Sub setDiskQuotas (driveletter,defaultquotalimit) Set colDiskQuotas = CreateObject("Microsoft.DiskQuota.1") colDiskQuotas.Initialize driveletter, True colDiskQuotas.DefaultQuotaLimit = defaultquotalimit colDiskQuotas.DefaultQuotaThreshold = (defaultquotalimit-26214400) Set colDiskQuotas = nothing wscript.echo "Default Quota Limit has been set to " & (defaultquotalimit/1024/1024) & " MB on " & driveletter Call queryLogQuotas (driveletter) End Sub Sub queryLogQuotas (driveletter) Set colDiskQuotas = CreateObject("Microsoft.DiskQuota.1") Dim colDiskQuotas colDiskQuotas.Initialize driveletter, False Select Case colDiskQuotas.LogQuotaLimit Case 0 enableLogQuotaLimit driveletter Case Else wscript.echo "Logging for Disk Quota Limit has already been enabled on " & driveletter End Select Select Case colDiskQuotas.LogQuotaThreshold Case 0 enableLogQuotaThreshold driveletter Case Else wscript.echo "Logging for Disk Quota Threshold has already been enabled on " & driveletter End Select Set colDiskQuotas = nothing End Sub Sub enableLogQuotaLimit (driveletter) Dim colDiskQuotas Const ENABLE_LOG = 2 Set colDiskQuotas = CreateObject("Microsoft.DiskQuota.1") colDiskQuotas.Initialize driveletter, True colDiskQuotas.LogQuotaLimit = ENABLE_LOG Set colDiskQuotas = nothing wscript.echo "Logging for Disk Quota Limit has been enabled on " & driveletter End Sub Sub enableLogQuotaThreshold (driveletter) Dim colDiskQuotas Const ENABLE_LOG = 2 Set colDiskQuotas = CreateObject("Microsoft.DiskQuota.1") colDiskQuotas.Initialize driveletter, True colDiskQuotas.LogQuotaThreshold = ENABLE_LOG Set colDiskQuotas = nothing wscript.echo "Logging for Disk Quota Threshold has been enabled on " & driveletter End Sub objStdIn.close objStdOut.close wscript.quit Click HERE to download the VB Script. Copyright 2006 WindowsAdminScripts.com all rights reserved.