Virtual Server
Virtual Server Access Rights and Security
List Virtual Server Access Rights
' List Virtual Server Access Rights
On Error Resume Next
Set objVS = CreateObject("VirtualServer.Application")
Set objSecurity = objVS.Security
Set colAccessRights = objSecurity.AccessRights
For Each objAccessRight in colAccessRights
Wscript.Echo "Change permissions: " & objAccessRight.ChangePermissions
Wscript.Echo "Delete access: " & objAccessRight.DeleteAccess
Wscript.Echo "Execute access: " & objAccessRight.ExecuteAccess
Wscript.Echo "Flags: " & objAccessRight.Flags
Wscript.Echo "Name: " & objAccessRight.Name
Wscript.Echo "Read access: " & objAccessRight.ReadAccess
Wscript.Echo "Read permissions: " & objAccessRight.ReadPermissions
Wscript.Echo "SID: " & objAccessRight.SID
Wscript.Echo "Special access: " & objAccessRight.SpecialAccess
Wscript.Echo "Type: " & objAccessRight.Type
Wscript.Echo "Write access: " & objAccessRight.WriteAccess
Wscript.Echo
Next
|
VbsEdit includes all these samples!
Download version 3.4.1
Released Tuesday, January 06, 2009 -
The evaluation version never expires
Home
Buy Now
HtaEdit
Support
Video
What's new ?
Awards
|