Variabler Programmcode in VBScript

Maxx666

Kitemaniac

Registered: Sep 2001
Location: Longshore / West..
Posts: 712

09.05.2003 - 09:33

Gibt es eine Möglichkeit Befehlszeilen innerhalb der Laufzeit zu verändern?
Dh. ich hab zum Programmierzeitpunkt noch keine Ahnung welche Methoden ich auf ein Objekt ausführen kann, sondern weiß es erst zum Programmablauf.

Die rot-markierte Methode würde sich immer ändern...

zBleistift:

For Each Attribut in Attributes
AttributeType = TypeName(Attribut)
select case AttributeType
case .....
case "Object"
Set objUser = GetObject("LDAP://" & LdapObject)
Set objDate = objUser.pwdLastSet
Output = Output & " " & Integer8Date(objDate, lngBias) & "[" & AttributeType & "]"
case else
Output = Output & " " & "Unknown [" & AttributeType & "]"
end select
Next

Function Integer8Date(objDate, lngBias)
' Function to convert Integer8 (64-bit) value to date.
Dim lngAdjust, lngDate
lngAdjust = lngBias
If (objDate.HighPart = 0) And (objDate.LowPart = 0) Then
lngAdjust = 0
End If
lngDate = #1/1/1601# + (((objDate.HighPart * (2 ^ 32)) + objDate.LowPart) / 600000000 - lngAdjust) / 1440
Integer8Date = CDate(lngDate)
End Function

Guest

Deleted User

Registered: n/a
Location:
Posts: n/a

09.05.2003 - 09:44

ich würd eine wrapperclass bauen, die mir automatisch die richtige methode auruft...

Maxx666

Kitemaniac

Registered: Sep 2001
Location: Longshore / West..
Posts: 712

09.05.2003 - 12:17

Zitat von rettich
ich würd eine wrapperclass bauen, die mir automatisch die richtige methode auruft...

was meinst du mit einer wrapperclass und wo kann man sich sowas anschauen? hast du vielleicht einen beispielcode?

wäre ganz nette

tnx in advance, maxx

Maxx666

Kitemaniac

Registered: Sep 2001
Location: Longshore / West..
Posts: 712

09.05.2003 - 21:26

Hab mich auf die Suche nach einer sogenannten Wrapperclass gemacht und bin fündig geworden.
Für all jene die es auch interessiert, hier der Link

und so sieht das stark vereinfacht in vbscript aus:

Class PTWrapper
Public Function PTMethodExecute(sMethodStatement)
Dim sMethod
sMethod = Replace(sMethodStatement,"\#", Chr(34))
Execute sMethod
End Function

Public Function PTMethodEval(sMethodStatement)
Dim sMethod
sMethod = Replace(sMethodStatement,"\#", Chr(34))
PTMethodEval = Eval(sMethod)
End Function
End Class 'PTWrapper

Dim oPTWrapper
Set oPTWrapper = new PTWrapper

command = "msgbox"
oPTWrapper.PTMethodExecute(command &" \#Servus\#")

command = "wscript.echo"
oPTWrapper.PTMethodExecute(command &" \#Servus\#")

Tnx an :fresserettich:

für den Tipp, vorallem für den Begriff. Denn ich wusste nicht mal, wonach ich suchen sollte.

Guest

Deleted User

Registered: n/a
Location:
Posts: n/a

11.05.2003 - 01:29

np.

freude pur bei mir, weil genau so solls IMO laufen: tips holen, erweitert suchen, lösung finden. :cool:

Frys_Assassin

information keeper

Registered: Oct 2001
Location: New New York
Posts: 2503

11.05.2003 - 01:36

und lösung präsentieren, damit andere auch daraus lernen können (so sie die search-funktion verwenden)

atrox

in fairy dust... I trust!

Registered: Sep 2002
Location: HTTP/1.1 404
Posts: 2782

11.05.2003 - 03:37

so sehe ich es auch gerne

Maxx666 Kitemaniac Registered: Sep 2001 Location: Longshore / West.. Posts: 712	09.05.2003 - 09:33 Gibt es eine Möglichkeit Befehlszeilen innerhalb der Laufzeit zu verändern? Dh. ich hab zum Programmierzeitpunkt noch keine Ahnung welche Methoden ich auf ein Objekt ausführen kann, sondern weiß es erst zum Programmablauf. Die rot-markierte Methode würde sich immer ändern... zBleistift: For Each Attribut in Attributes AttributeType = TypeName(Attribut) select case AttributeType case ..... case "Object" Set objUser = GetObject("LDAP://" & LdapObject) Set objDate = objUser.pwdLastSet Output = Output & " " & Integer8Date(objDate, lngBias) & "[" & AttributeType & "]" case else Output = Output & " " & "Unknown [" & AttributeType & "]" end select Next Function Integer8Date(objDate, lngBias) ' Function to convert Integer8 (64-bit) value to date. Dim lngAdjust, lngDate lngAdjust = lngBias If (objDate.HighPart = 0) And (objDate.LowPart = 0) Then lngAdjust = 0 End If lngDate = #1/1/1601# + (((objDate.HighPart * (2 ^ 32)) + objDate.LowPart) / 600000000 - lngAdjust) / 1440 Integer8Date = CDate(lngDate) End Function
Guest Deleted User Registered: n/a Location: Posts: n/a	09.05.2003 - 09:44 ich würd eine wrapperclass bauen, die mir automatisch die richtige methode auruft...
Maxx666 Kitemaniac Registered: Sep 2001 Location: Longshore / West.. Posts: 712	09.05.2003 - 12:17 Zitat von rettich ich würd eine wrapperclass bauen, die mir automatisch die richtige methode auruft... was meinst du mit einer wrapperclass und wo kann man sich sowas anschauen? hast du vielleicht einen beispielcode? wäre ganz nette tnx in advance, maxx
Maxx666 Kitemaniac Registered: Sep 2001 Location: Longshore / West.. Posts: 712	09.05.2003 - 21:26 Hab mich auf die Suche nach einer sogenannten Wrapperclass gemacht und bin fündig geworden. Für all jene die es auch interessiert, hier der Link und so sieht das stark vereinfacht in vbscript aus: Class PTWrapper Public Function PTMethodExecute(sMethodStatement) Dim sMethod sMethod = Replace(sMethodStatement,"\#", Chr(34)) Execute sMethod End Function Public Function PTMethodEval(sMethodStatement) Dim sMethod sMethod = Replace(sMethodStatement,"\#", Chr(34)) PTMethodEval = Eval(sMethod) End Function End Class 'PTWrapper Dim oPTWrapper Set oPTWrapper = new PTWrapper command = "msgbox" oPTWrapper.PTMethodExecute(command &" \#Servus\#") command = "wscript.echo" oPTWrapper.PTMethodExecute(command &" \#Servus\#") Tnx an für den Tipp, vorallem für den Begriff. Denn ich wusste nicht mal, wonach ich suchen sollte.
Guest Deleted User Registered: n/a Location: Posts: n/a	11.05.2003 - 01:29 np. freude pur bei mir, weil genau so solls IMO laufen: tips holen, erweitert suchen, lösung finden.
Frys_Assassin information keeper Registered: Oct 2001 Location: New New York Posts: 2503	11.05.2003 - 01:36 und lösung präsentieren, damit andere auch daraus lernen können (so sie die search-funktion verwenden)
atrox in fairy dust... I trust! Registered: Sep 2002 Location: HTTP/1.1 404 Posts: 2782	11.05.2003 - 03:37 so sehe ich es auch gerne

Variabler Programmcode in VBScript

Forum Index > Software > Coding Stuff

Maxx666

Guest

Maxx666

Maxx666

Guest

Frys_Assassin

atrox