none
Qutota meldung an User RRS feed

  • Frage

  • Hallo ich habe folgendes Problem

    Das ist das Ziel

    1. User (nicht Admin) meldet sich an der Domäne an.

    2. Das Script in der AD mit dem Benutzer verknüpft.

    Das Script checked am dem Zielserver das 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

    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

     

    Danke für eure Hilfe

    Donnerstag, 11. Januar 2007 11:57