Question

我需要为用户个人资料设置一个大小限制，然后在超过限制时删除它们。我最成功的是使用这个脚本

Set colDiskQuotas = CreateObject("Microsoft.DiskQuota.1")
colDiskQuotas.Initialize "C:\", True

Set objUser = colDiskQuotas.AddUser("aaa") 
Set objUser = colDiskQuotas.FindUser("aaa")
objUser.QuotaLimit = 200000000 '200mb quota 

objUser.QuotaState = 2

If objUser.QuotaState = 2 Then 
    WScript.Echo "Quota state: Enabled and enforced" 
ElseIf objUser.QuotaState = 1 Then 
    WScript.Echo "Quota state: Enabled but not enforced" 
Else 
    WScript.Echo "Quota state: Disabled" 
End If 

'Sets C:\ limit to 200mb
colDiskQuotas.DefaultQuotaLimit = 200000000
colDiskQuotas.DefaultQuotaThreshold = 190000000
WScript.Echo "Default quota limit: " & (colDiskQuotas.DefaultQuotaLimit / 1000000) 'displays quota in megabytes
WScript.Echo "Default warning limit: " & _ 
    (colDiskQuotas.DefaultQuotaThreshold / 1000000) 'displays quota threshold in megabytes

脚本的底部成功地将磁盘配额设置为200 MB，但遗憾的是，这不是我需要做的，只是一个测试。处理用户'aaa'的部分是重要的部分，但是我错误地说该帐户不存在。我在网上得到了这个代码，这是我第一次接触VBScript，就像一个旁注。

我也尝试了fsutil CLI命令，我在Powershell中修改了WMI类DiskQuota但是没有任何运气。

在Windows 10上使用VBScript限制用户配置文件大小

0 个答案: