----- Original Message -----
From: "Alex K. Angelopoulos" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, 2002-05-21 07:40
Subject: Re: How to find server desktop size?
> from a Windows system, this can be automated pretty easily, too.
>
Here's a cleaner, lighter version:
'GetVNCDims.vbs
Dims = VNCDeskDim("192.168.1.3:5800")
Wscript.Echo Dims(0),Dims(1)
Function VNCDeskDim(sHost)
s = Split(Replace(Split(sXML("http://"; & sHost),vbLf)(1),">",""))
VNCDeskDim = array(_
Replace(s(3),"WIDTH=",""), _
Replace(s(4),"HEIGHT=","") - 32)
End Function
Function sXML(sURL)
' Create an xmlhttp object:
Dim oXml
Set oXml = CreateObject("Microsoft.XMLHTTP")
' Opens the connection to the remote server.
oXml.open "GET",sURL, false
' Actually Sends the request and returns the data:
oXml.send
Do
wscript.sleep 10
Loop While oXml.ReadyState<>4
sXML = oXml.responseText
End Function
---------------------------------------------------------------------
To unsubscribe, mail [EMAIL PROTECTED] with the line:
'unsubscribe vnc-list' in the message BODY
See also: http://www.uk.research.att.com/vnc/intouch.html
---------------------------------------------------------------------
