List Virtual Server Display Information
' List Virtual Server Display Information
On Error Resume Next
Set objVS = CreateObject("VirtualServer.Application")
set colVMs = objVS.VirtualMachines
For Each objVM in colVMS
Set objDisplay = objVM.Display
Wscript.Echo objVM.Name
Wscript.Echo "Height: " & objDisplay.Height
Wscript.Echo "Video mode: " & objDisplay.VideoMode
Wscript.Echo "Width: " & objDisplay.Width
Wscript.Echo
Next
VbsEdit contains all these sample scripts!
Download
Home
Scripts
Copyright © 2001-2025 adersοft