2
Disk Qutota problem Win 2k3
Hallo
wir haben in unserem Schulnetzwerk für jeden Benutzer 250MB frei gegeben.
Gibt es eine Möglichkeit per Skript zum Beispiel dem User beim Anmelden sichtbar zu machen wie viel Speicher er noch zur Verfügung hat?
Danke für eure Hilfe!
wir haben in unserem Schulnetzwerk für jeden Benutzer 250MB frei gegeben.
Gibt es eine Möglichkeit per Skript zum Beispiel dem User beim Anmelden sichtbar zu machen wie viel Speicher er noch zur Verfügung hat?
Danke für eure Hilfe!
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 48202
Url: https://administrator.de/forum/disk-qutota-problem-win-2k3-48202.html
Ausgedruckt am: 24.12.2024 um 13:12 Uhr
2 Kommentare
Neuester Kommentar
hi boy.
google dein freund und helfer.
ms gibt hilfe *ggg*
guck mal unter: http://www.microsoft.com/technet/scriptcenter/resources/qanda/nov04/hey ...
mfg
jürgen
google dein freund und helfer.
ms gibt hilfe *ggg*
guck mal unter: http://www.microsoft.com/technet/scriptcenter/resources/qanda/nov04/hey ...
mfg
jürgen
habe es probiert aber es treten noch ein paar probleme auf.
Das ist mein Code:
strComputer = "svrname"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colQuotas = objWMIService.ExecQuery _
("Select * From Win32_DiskQuota Where " & _
"User='Win32_Account.Domain=""standort.domäne"",Name=""user1""'")
For Each objQuota in colQuotas
intStatus = objQuota.Status
Select Case intStaus
Case 0
strStatus = "OK"
Case 1
strStatus = "Achtung. Langsam wirds knapp"
Case 2
strStatus = "Kein Speicher vorhanden!"
Case Else
strStatus = "Unknown"
End Select
Wscript.Echo "Gebrauchter Speicher: " & objQuota.DiskSpaceUsed & " / Verfügbarer Speicher: " & objQuota.Limit & " / Speicherstatus: " & strStatus
Next
Das ist das Ziel
1. User (nicht Admin) meldet sich an.
2. das script in der AD verknüft und auf dem ziel server checked den zustand der quota auf laufwerk D: - script muss dynamisch sein -> ein script für alle user und nicht ein script pro person
3. User kriegt Rückmeldung wie der Zustand ist - Bsp. Ok oder Speicher wird knapp rsp. Daten löschen
Danke für eure hilfe
Das ist mein Code:
strComputer = "svrname"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colQuotas = objWMIService.ExecQuery _
("Select * From Win32_DiskQuota Where " & _
"User='Win32_Account.Domain=""standort.domäne"",Name=""user1""'")
For Each objQuota in colQuotas
intStatus = objQuota.Status
Select Case intStaus
Case 0
strStatus = "OK"
Case 1
strStatus = "Achtung. Langsam wirds knapp"
Case 2
strStatus = "Kein Speicher vorhanden!"
Case Else
strStatus = "Unknown"
End Select
Wscript.Echo "Gebrauchter Speicher: " & objQuota.DiskSpaceUsed & " / Verfügbarer Speicher: " & objQuota.Limit & " / Speicherstatus: " & strStatus
Next
Das ist das Ziel
1. User (nicht Admin) meldet sich an.
2. das script in der AD verknüft und auf dem ziel server checked den zustand der quota auf laufwerk D: - script muss dynamisch sein -> ein script für alle user und nicht ein script pro person
3. User kriegt Rückmeldung wie der Zustand ist - Bsp. Ok oder Speicher wird knapp rsp. Daten löschen
Danke für eure hilfe
