I am using the following script from "System Administration Scripting
Guide" to add a disk quota entry.

Set colDiskQuotas = CreateObject("Microsoft.DiskQuota.1")
colDiskQuotas.Initialize "C:\", True
set objUser = colDiskQuotas.AddUser("jsmith")
set objUser = colDiskQuotas.FindUser("jsmith")
objUser.QuotaLimit = 50000000

This script crashes on Windows 2003 RC2. The DrWatson log shows, that,
the crash happens somewhere in dskquota.dll

Can someone shade some light on this OR is there any other way to add
disk quota entries?

Thanks.
-Prasad

Public Function SetQuota(ByVal userName As String, ByVal qLimit _
                                As Integer, ByVal location As String)
As Object
        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

must be changed to match your Domain
        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

        Dim colDiskQuotas As Object
        Dim qWarning As Integer
        Dim QuotaUser As Object

        'userName ex: ChrisP
        'qLimit = variables.item(1)     'ex: 50
        'location = variables.item(2)   'ex: \\tundra\c
        location = location & "$\\"     'must have the $\\ on the end

        Const ENABLE_QUOTAS = 2
        colDiskQuotas = CreateObject("Microsoft.DiskQuota.1")
        colDiskQuotas.Initialize(location, True)
        colDiskQuotas.QuotaState = ENABLE_QUOTAS

        colDiskQuotas.Adduser(userName)

        qLimit = qLimit * 1024 * 1024
        qWarning = qLimit * 0.8

        QuotaUser = colDiskQuotas.FindUser(colDiskQuotas.TranslateLogonNameToSID(userName
& DomainSuffix))

        QuotaUser.QuotaLimit = qLimit
        QuotaUser.QuotaThreshold = qWarning
    End Function

Public Function SetQuota(ByVal userName As String, ByVal qLimit _
                                As Integer, ByVal location As String)
As Object
        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

must be changed to match your Domain
        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

        Dim colDiskQuotas As Object
        Dim qWarning As Integer
        Dim QuotaUser As Object

        'userName ex: ChrisP
        'qLimit = variables.item(1)     'ex: 50
        'location = variables.item(2)   'ex: \\tundra\c
        location = location & "$\\"

        Const ENABLE_QUOTAS = 2
        colDiskQuotas = CreateObject("Microsoft.DiskQuota.1")
        colDiskQuotas.Initialize(location, True)
        colDiskQuotas.QuotaState = ENABLE_QUOTAS

        QuotaUser = colDiskQuotas.Adduser(userName)

        qLimit = qLimit * 1024 * 1024
        qWarning = qLimit * 0.8

I used to use the following 2 lines but kept having syncing problems
so i commented them out and now use the QuotaUser =
colDiskQuotas.adduser from above instead.
        'QuotaUser =
colDiskQuotas.FindUser(colDiskQuotas.TranslateLogonNameToSID(userName
& DomainSuffix))

        QuotaUser.QuotaLimit = qLimit
        QuotaUser.QuotaThreshold = qWarning
    End Function