You are here:

ActiveXperts.com > ActiveXperts Network Monitor > WindowsManagement > Scripts > Virtual Server > Virtual Server Client Information
ActiveXperts Network Monitor
Monitor servers, workstations, devices and applications in your network

Quicklinks

Virtual Server Client Information - Scripting

Click a Mouse Button in a Virtual Machine
Click a Mouse Button in a Virtual Machine
Display the Client Control About Box
List Virtual Server Client Control Connection Information
List Virtual Server Client Control Properties
List Virtual Server VMRC Authenticators
Press a Key in a Virtual Machine
Type ASCII Text in a Virtual Machine

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.


Click a Mouse Button in a Virtual Machine


Clicks a mouse button inside a virtual machine named Windows 2000. 
On Error Resume Next

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

Set objMouse = objVM.Mouse
errReturn = objMouse.Click(2)

Click a Mouse Button in a Virtual Machine


Clicks the left mouse button in a virtual machine named Windows 2000 Server. 
On Error Resume Next

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

Set objMouse = objVM.Mouse
errReturn = objMouse.SetButton(1, TRUE)
Wscript.Echo errReturn

Display the Client Control About Box


Displays the About Box for the Virtual Server client control. 
Set objClientControl = CreateObject("MSVMRCActiveXClient.VMRCClientControl")
objClientControl.AboutBox

List Virtual Server Client Control Connection Information


Lists connection information for the Virtual Server client control. 
Set objClientControl = CreateObject("MSVMRCActiveXClient.VMRCClientControl")
objClientControl.ShowConnectionInfo

List Virtual Server Client Control Properties


Lists Virtual Server client control properties. 
On Error Resume Next

Set objClientControl = CreateObject("MSVMRCActiveXClient.VMRCClientControl")
Wscript.Echo "Administrator mode: " & objClientControl.AdministratorMode
Wscript.Echo "Autosize: " & objClientControl.AutoSize
Wscript.Echo "Enabled: " & objClientControl.Enabled
Wscript.Echo "Host key: " & objClientControl.HostKey
Wscript.Echo "Menu back color: " & objClientControl.MenuBackColor
Wscript.Echo "Menu enabled: " & objClientControl.MenuEnabled
Wscript.Echo "Menu font color: " & objClientControl.MenuFontColor
Wscript.Echo "Menu font size: " & objClientControl.MenuFontSize
Wscript.Echo "Menu height: " & objClientControl.MenuHeight
Wscript.Echo "Ready state: " & objClientControl.ReadyState
Wscript.Echo "Reduced-colors mode: " & objClientControl.ReducedColorsMode
Wscript.Echo "Server address: " & objClientControl.ServerAddress
Wscript.Echo "Server display height: " & objClientControl.ServerDisplayHeight
Wscript.Echo "Server display name: " & objClientControl.ServerDisplayName
Wscript.Echo "Server display width: " & objClientControl.ServerDisplayWidth
Wscript.Echo "Server port: " & objClientControl.ServerPort
Wscript.Echo "State: " & objClientControl.State
Wscript.Echo "View-only mode: " & objClientControl.ViewOnlyMode

List Virtual Server VMRC Authenticators


Lists Virtual Server VMRC authenticators.
On Error Resume Next

Set objVS = CreateObject("VirtualServer.Application")
Set colAuthenticators = objVS.VMRCAuthenticators
For Each objAuthenticator in colAuthenticators
    Wscript.Echo "Name: " & objAuthenticator.Name
    Wscript.Echo "Description: " & objAuthenticator.Description
    Wscript.Echo "Type: " & objAuthenticator.Type
    Wscript.Echo
Next

Press a Key in a Virtual Machine


Presses the left CTRL and the Escape key within a virtual machine named Windows 2000 Server. 
On Error Resume Next

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

Set objKeyboard = objVM.Keyboard
errReturn = objKeyboard.PressKey("Key_LeftCtrl")
errReturn = objKeyboard.PressKey("Key_Escape")

Type ASCII Text in a Virtual Machine


Types the string "Test string." within a virtual machine named Windows 2000 Server.
On Error Resume Next

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

Set objKeyboard = objVM.Keyboard
errReturn = objKeyboard.TypeASCIIText("Test string.")