Bildschirmauflösung per VBS ermitteln

[Squicky]

Hallo

Wie kann man per VBS (Visual Bisic Script) die Bildschirmauflösung ermitteln?

Danke

 

[hostile]

http://www.boris-toll.at/scriptbox/...esolution Being Used on a Computer.vbs&list=1

gruß
hostile

Google rules

 

[Squicky]

ok, das hat funktioniert.

Aber leider wird damit die "echte" Auflösung ermittelt.

Hier ist es aber so:
Per Remote steure ich per Netzwerk einen PC und starte dort das VBS.
Leider wird dann die Bildschirmauflösung ermittelt die aus der Grafikarte an den Monitor geht.
Es wird aber die Auflösung der Remoteverbindung gebraucht.

Wie kann man diese per VBS ermitteln?

Danke für eure Hilfe

Gruß
Squicky

 

[schmidmi]

Das Skript läuft auf dem Remoterechner?
Dann kannst du dir dort die Höhe und Breite das Bildschirms ausgeben lassen:

Height = VB.Screen.Height \ Screen.TwipsPerPixelY

Width = VB.Screen.Width \ Screen.TwipsPerPixelX

Beide Variablen sind jeweils als Long definiert.