Gives additional information about the volume.
Indicates the number of sectors per cluster on the mounted volume.
object.ClusterSize
Long.
Read-only.
See sample in Example.
Indicates the amount of disk space used by all the compressed files on the mounted volume.
object.CompressAfter
Long.
Read-only.
See sample in Example.
Indicates the amount of disk space allocated to all files on the mounted volume before they were compressed.
object.CompressBefore
Long.
Read-only.
See sample in Example.
Indicates the number of data streams for compressed files that have been deleted from the mounted volume.
object.CompressDeleted
Long.
Read-only.
See sample in Example.
Indicates the number of data streams for real compressed files on the mounted volume.
object.CompressFiles
Long.
Read-only.
See sample in Example.
Indicates the number of data streams on the mounted volume for deleted files with data allocated to them.
object.DeletedFiles
Long.
Read-only.
See sample in Example.
Gives the extended information about the mounted volume.
object.Flags
String.
Read-only.
This property gives the volume status flags. Various bits of this flag are shown below. All the flags are represented as hexadecimal numbers. If multiple flags are enabled the output will be a ORed value of all the enabled flags.
See sample in Example.
Gives a list of name spaces on the mounted volume.
object.NameSpaces
String.
Read-only.
See sample in Example.
Indicates the sector size, in bytes, on the mounted volume.
object.SectorSize
Long.
Read-only.
This sample gives all the additional information on volume Sys.
On Error Resume Next
Set volmgr = CreateObject ("UCX:VolumeMgr")
Set vols = volmgr.Volumes
Set volume = Vols.Element("Sys")
If (Err.Number=0) Then
Set ExtdInfo = volume.ExtendedVolInfo
Print "The number of sectors per cluster is
"&ExtdInfo.ClusterSize
Print "The disk space used by compressed files "
&ExtdInfo.CompressAfter
Print "The disk space used before compression"&
ExtdInfo.CompressBefore
Print "The number of data streams deleted for compressed
files "&ExtdInfo.CompressDeleted
Print "The number of data streams for compressed files
"&ExtdInfo.CompressFiles
Print "The number of data streams for deleted files
"&ExtdInfo.DeletedFiles
Print "The extended information about volume
"&ExtdInfo.Flags
Print "The namespaces present in the volume "&
ExtdInfo.Namespaces
Print "The size of the sector is: "&ExtdInfo.SectorSize
Else
Print "Failed to find the volume "&Err.Description
Endif
Removes the volume space restriction for a specified user on the mounted volume.
object.RemoveSpaceRestriction()
None.
Boolean. Returns TRUE if successful, else returns FALSE.
This example removes the volume space restriction for TestUser on volume Sys.
Set nds1 = CreateObject ("UCX:NWDir")
’Log in to an account with supervisory rights
nds1.Login("Username","password")
If (Err.Number=0) Then
’Get all information about Sys
Set volmgr = CreateObject ("UCX:VolumeMgr")
Set vols = volmgr.volumes
Set volume = Vols.Element("Sys")
Set restns = volume.GetSpaceRestriction()
If (Err.Number=0) Then
Set restr = Restns.Element("guest")
If (Err.Number=0) Then
Restr.RemoveSpaceRestriction()
If (Err.Number=0) Then
Print "Restriction removed successfully"
Else
Print "Failed to remove restriction " &
Err.Description
Endif
Else
Print"Could not remove the restriction
"&Err.description
Endif
Else
Print "GetSpaceRestriction failed - "&Err.Description
Endif
nds1.Logout()
Else
Print "Login failed"
Endif
Sets the volume space restriction for a specified user on the mounted volume.
object.SetSpaceRestriction(
Value As Long)
The value to be set for the user.
Boolean. Returns TRUE if successful; otherwise, FALSE.
This example sets the space restriction for TestUser on volume Sys.
Set nds1 = CreateObject("UCX:NWDir")
’Log in to an account with supervisory rights
nds1.Login("username","password")
If (Err.Number=0) Then
’Get all information about Sys
Set volmgr = CreateObject ("UCX:VolumeMgr")
Set vols = volmgr.volumes
Set volume = Vols.Element("Sys")
Set restns = volume.GetSpaceRestriction()
If (Err.Number=0) Then
Set restr = Restns.Element("guest")
If (Err.Number=0) Then
Restr.SetSpaceRestriction(3000)
If (Err.Number=0) Then
Print "Restriction set successfully"
Else
Print "Failed to set restriction " & Err.Description
Endif
Else
Print "Could not set the restriction "&Err.description
Endif
Else
Print "SetSpaceRestriction failed - "&Err.Description
Endif
nds1.Logout()
Else
Print "Login failed"
Endif