It's an OLE object reference
Delphi equiv = GetOleObject
MSDN Home MSDN Library Visual Basic Reference
Visual Basic for Applications Reference
GetObject Function
See AlsoExampleSpecifics
Returns a reference to an object provided by an ActiveX component.
Syntax
GetObject([pathname] [, class])
The GetObject function syntax has these named arguments:
Part Description
pathname Optional; Variant (String). The full path and name of the file
containing the object to retrieve. If pathname is omitted, class is
required.
class Optional; Variant (String). A string representing the class of the
object.
The class argument uses the syntax appname.objecttype and has these parts:
Part Description
appname Required; Variant (String). The name of the application providing
the object.
objecttype Required; Variant (String). The type or class of object to
create.
Remarks
Use the GetObject function to access an ActiveX object from a file and
assign the object to an object variable. Use the Set statement to assign the
object returned by GetObject to the object variable. For example:
Dim CADObject As Object
Set CADObject = GetObject(C:\CAD\SCHEMA.CAD)
When this code is executed, the application associated with the specified
pathname is started and the object in the specified file is activated.
If pathname is a zero-length string (), GetObject returns a new object
instance of the specified type. If the pathname argument is omitted,
GetObject returns a currently active object of the specified type. If no
object of the specified type exists, an error occurs.
Some applications allow you to activate part of a file. Add an exclamation
point (!) to the end of the file name and follow it with a string that
identifies the part of the file you want to activate. For information on how
to create this string, see the documentation for the application that
created the object.
For example, in a drawing application you might have multiple layers to a
drawing stored in a file. You could use the following code to activate a
layer within a drawing called SCHEMA.CAD:
Set LayerObject = GetObject(C:\CAD\SCHEMA.CAD!Layer3)
If you don't specify the object's class, Automation determines the
application to start and the object to activate, based on the file name you
provide. Some files, however, may support more than one class of object. For
example, a drawing might support three different types of objects: an
Application object, a Drawing object, and a Toolbar object, all of which are
part of the same file. To specify which object in a file you want to
activate, use the optional class argument. For example:
Dim MyObject As Object
Set MyObject = GetObject(C:\DRAWINGS\SAMPLE.DRW, FIGMENT.DRAWING)
In the example, FIGMENT is the name of a drawing application and DRAWING is
one of the object types it supports.
Once an object is activated, you reference it in code using the object
variable you defined. In the preceding example, you access properties and
methods of the new object using the object variable MyObject. For example:
MyObject.Line 9, 90
MyObject.InsertText 9, 100, Hello, world.
MyObject.SaveAs C:\DRAWINGS\SAMPLE.DRW
Note Use the GetObject function when there is a current instance of the
object or if you want to create the object with a file already loaded. If
there is no current instance, and you don't want the object started with a
file loaded, use the CreateObject function.
If an object has registered itself as a single-instance object, only one
instance of the object is created, no matter how many times CreateObject is
executed. With a single-instance object, GetObject always returns the same
instance when called with the zero-length string () syntax, and it causes
an error if the pathname argument is omitted. You can't use GetObject to
obtain a reference to a class created with Visual Basic.
Contact Us | E-mail this Page | MSDN Flash Newsletter
© 2001 Microsoft Corporation. All rights reserved. Terms of Use Privacy
Statement Accessibility
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On
Behalf Of Neven MacEwan
Sent: Wednesday, 24 October 2001 12:12
To: Multiple recipients of list delphi
Subject: [DUG]: equiv in Delphi
Hi guys
Can anyone xlate this particularly ugly VBS code (main the getobject call)
dim domain as variant
Set domain = GetObject(WinNT://AIRNZ-NZ)
domain.Filter = Array(User)
For Each user in domain
wscript.echo user.LastLogin
Next
Regards Neven
N.K. MacEwan B.E. EE
Ph 649 574 0027
Fax 649 570 2706
[EMAIL PROTECTED]
--
-
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of unsubscribe delphi
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
