You are here:

ActiveXperts.com > ActiveXperts Network Monitor > WindowsManagement > Scripts > Virtual Server > Virtual Server Access Rights and Security
ActiveXperts Network Monitor
Monitor servers, workstations, devices and applications in your network

Quicklinks

Virtual Server Access Rights and Security - Scripting

List Current User Virtual Server Access Rights
List Virtual Server Access Rights
Search for Virtual Server Access Rights
Search for a Virtual Server Security Entry

You can use any of the VBScript programs below in ActiveXperts Network Monitor. Click here for an explanation about how to include scripts in ActiveXperts Network Monitor.


List Current User Virtual Server Access Rights


Lists Virtual Server access rights for the logged-on user. 
On Error Resume Next

Set objVS = CreateObject("VirtualServer.Application")
Set objSecurity = objVS.Security
Set objAccessRights = objSecurity.CurrentUserAccessRights

Wscript.Echo "Change permissions: " & objAccessRights.ChangePermissions
Wscript.Echo "Delete access: " & objAccessRights.DeleteAccess
Wscript.Echo "Execute access: " & objAccessRights.ExecuteAccess
Wscript.Echo "Flags: " & objAccessRights.Flags
Wscript.Echo "Name: " & objAccessRights.Name
Wscript.Echo "Read access: " & objAccessRights.ReadAccess
Wscript.Echo "Read permissions: " & objAccessRights.ReadPermissions
Wscript.Echo "SID: " & objAccessRights.SID
Wscript.Echo "Special access: " & objAccessRights.SpecialAccess
Wscript.Echo "Type: " & objAccessRights.Type
Wscript.Echo "Write access: " & objAccessRights.WriteAccess

List Virtual Server Access Rights


Lists 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

Search for Virtual Server Access Rights


Locates Virtual Server access rights for the Administrators group. 
On Error Resume Next

Set objVS = CreateObject("VirtualServer.Application")
Set objSecurity = objVS.Security

Set objAccessRights = objSecurity.FindEntry("Administrators",0)
Wscript.Echo objAccessRights.Name

Search for a Virtual Server Security Entry


Locates the security entry for a Virtual Server user named bob on a virtual machine named Windows 2000 Server. 
On Error Resume Next

Set objVS = CreateObject("VirtualServer.Application")
Set objVM = objVS.FindVirtualMachine("Windows 2000 Server")

Set objSecurity = objVM.Security
Set objEntry = objSecurity.FindEntry("bob",0)

Wscript.Echo objEntry.Name
Wscript.Echo objEntry.SID