2002? I think the statute of limitations is only 2 years on
my posts. ;o)
Glad it helped, I honestly do not recall that page at all.
I do remember that there is an Active X control for handling the TS stuff
though.
Glad my previous self was more helpful than my current
self. ;o)
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Michael B. Smith
Sent: Friday, October 07, 2005 2:21 PM
To: ActiveDir@mail.activedir.org
Subject: RE: [ActiveDir] OT: Parameters property from WinNT provider
Interestingly enough, joe, it was a posting that you made
in November of 2002 in microsoft.public.win2000.active_directory, that led me to
this:
I fixed a couple of bugs, added a couple more attributes,
and voila' -- it does what I need. It is a damned shame it was so hard to find.
I've spent way too many hours on this project this week.
The IAS, RRAS, and WTS attributes are all stored in that
blob. I came across another, similar ActiveX object for dealing with WTS
stuff.
Thanks!
(This isn't formatted the way I would've done so, but I
stuck with the formatting of the example:
a =
PROPERTY_USER_RADIUS_FRAMED_IP_ADDRESS
v = u.getproperty (a)
msg = msg & "Static IP address: "
If IsEmpty(v) Then
msg = msg & "<not checked>"
Else
e = Right ("00000000" & Hex (v), 8)
msg = msg & _
CInt ("&h" & Mid (e, 1, 2)) & "." & _
CInt ("&h" & Mid (e, 3, 2)) & "." & _
CInt ("&h" & Mid (e, 5, 2)) & "." & _
CInt ("&h" & Mid (e, 7, 2)) & " (" & _
v & " " & typename (v) & ")"
End If
msg = msg & vbCrLf
v = u.getproperty (a)
msg = msg & "Static IP address: "
If IsEmpty(v) Then
msg = msg & "<not checked>"
Else
e = Right ("00000000" & Hex (v), 8)
msg = msg & _
CInt ("&h" & Mid (e, 1, 2)) & "." & _
CInt ("&h" & Mid (e, 3, 2)) & "." & _
CInt ("&h" & Mid (e, 5, 2)) & "." & _
CInt ("&h" & Mid (e, 7, 2)) & " (" & _
v & " " & typename (v) & ")"
End If
msg = msg & vbCrLf
a =
PROPERTY_USER_RADIUS_FRAMED_ROUTE
v = u.getproperty (a)
msg = msg & "Static Routes: "
If IsEmpty (v) Then
msg = msg & "<not checked>"
Else
If typename (v) = "Variant()" Then
For Each e in v
msg = msg & e & ", "
Next
msg = Left (msg, Len (msg) - 2)
Else
msg = msg & e
End If
End If
wscript.echo msg
v = u.getproperty (a)
msg = msg & "Static Routes: "
If IsEmpty (v) Then
msg = msg & "<not checked>"
Else
If typename (v) = "Variant()" Then
For Each e in v
msg = msg & e & ", "
Next
msg = Left (msg, Len (msg) - 2)
Else
msg = msg & e
End If
End If
wscript.echo msg
)
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of joe
Sent: Thursday, October 06, 2005 9:12 PM
To: ActiveDir@mail.activedir.org
Subject: RE: [ActiveDir] OT: Parameters property from WinNT provider
The parameters aka userParameters attribute sucks, I
don't think I have seen any docs where anyone has decoded it. If you are just
looking to read it, you could pull the value, change it, then pull it again and
see what is different. Make sure you understand the label that is used as well
as the value's position in relation to the label so you can find it on other
machines because the position in the string will not be
absolute.
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Michael B. Smith
Sent: Wednesday, October 05, 2005 9:12 PM
To: ActiveDir@mail.activedir.org
Subject: [ActiveDir] OT: Parameters property from WinNT provider
I need to know how
to decode the parameters property on a user object from the WinNT provider. This
is not an A/D environment; but I figure that one of you expert scripters must've
run into this before.
Specifically, I'm
trying to retrieve the msRADIUSFramedIPAddress value. In A/D, this is just a
normal attribute. In a non-domain environment, it appears to be wrapped in the
parameters attribute.
(This is the "Assign
a Static IP address" field on the Dial-In tab of a user object in Computer
Management.)
The below is
what I'm getting back (the first number is the offset into the string, second
number is the decimal value of that byte, third number is the hexadecimal value
of the byte, a "-", and finally the character).
Thanks for any help
you can offer!
Michael
<junk
deleted>