Liebe alle,

anbei HÜ Gruppe 1!

Viele Grüße

Katharina, Kenan, Hans

Code:

/* create an object for IE */

myIE = .OLEObject~New("InternetExplorer.Application")

myIE~Width = 1000

myIE~Height = 800

Say "current dimensions of IE are:" myIE~Width "by" myIE~Height

/* set new dimensions and browse IBM homepage */

myIE~Width = 1280

myIE~Height = 1024

myIE~Visible = .True -- now show the window

myIE~Navigate("https://www.ibm.com")

/* wait for 5 seconds */

Call SysSleep 5

doc=myIE~document -- get loaded document

source=doc~body~outerhtml

/* wait for 10 seconds */

Call SysSleep 5

myIE~quit

say source

Output: In source ist die IBM-Seite als HTML

Code2:

ComputerName = value("COMPUTERNAME",,"ENVIRONMENT")

myComputer = .OLEObject~GetObject("WinNT://"||ComputerName||",computer")

say "Standard properties of this VM:"

say "Name:" myComputer~name

say "Class:" myComputer~class

say "GUID:" myComputer~guid

say "Parent:" myComputer~parent

say "Schema:" myComputer~schema

Output:

REXXout>Standard properties of this VM:

REXXout>Name: VPCLAB-T-009

REXXout>Class: Computer

REXXout>GUID: {DA438DC0-1E71-11CF-B1F3-02608C9E7553}

REXXout>Parent: WinNT://LAB

REXXout>Schema: WinNT://LAB/Schema/Computer

_________________________________

Johann Wolfschwenger (er/ihn, he/him)

Forschungsservice (Forschungsinformationssystem PURE)
Research Service Center (Research Information System PURE)

Wirtschaftsuniversität Wien
Vienna University of Economics and Business
Building AR, 6.10, Welthandelsplatz 1, 1020 Vienna, Austria

Tel: +43-1-313 36-5107

Fax: +43-1-313 36-905107