MOTOBIT.COM - ASP upload, IIS utility RasPrivileges usage

Article | Member of UserManager.RasPrivileges | Changes | Purchase | Download

1. Identities

Library name: ActiveX UserManager 1.7
Library code: UserManager
Library CLSID: E5D2CE13-5FA0-11D2-A666-204C4F4F5020
ProgID: UserManager.RasPrivileges
Library file name: UserMan.OCX

2. Scripting engines without types (VB Script, JavaScript, JScript, WSH, ASP)

You can create the object using CreateObject function:

Dim RasPrivileges
Set RasPrivileges = CreateObject("UserManager.RasPrivileges")
RasPrivileges.SomeMethod SomeParameters
RasPrivileges.SomeProperty = SomeValue

You can also use CreateObject method method of Server object (ASP) to put the RasPrivileges object to page scope or CreateObject method of WScript object in WSH.

You can also put the object to Application or Session scope using <object ...> tag in global.asa

<object runat="server" scope="application" id="RasPrivileges"
 progid="UserManager.RasPrivileges">
</object>

Please use ActivexObject object in JScript/JavaScript to create RasPrivileges object:

var RasPrivileges;
RasPrivileges = new ActiveXObject("UserManager.RasPrivileges");
RasPrivileges.SomeMethod(SomeParameters)
RasPrivileges.SomeProperty = SomeValue
...

3. VBA (VBA 5, VBA 6, Visual Studio, Word, Excel, MS Access, ...)

VBA 5/6: You can reference the library using menu Project -> References -> select 'ActiveX UserManager 1.7' in the listbox (or Project -> References -> Browse -> select UserMan.OCX file).
MSAccess, Word, Excel: Tools -> Macro -> Visual Basic Editor, then Tools -> References
Then you can write:

Dim RasPrivileges As New UserManager.RasPrivileges
RasPrivileges.SomeMethod SomeParameters
RasPrivileges.SomeProperty = SomeValue
    ...

Dim RasPrivileges As UserManager.RasPrivileges
...
Set RasPrivileges = New UserManager.RasPrivileges
RasPrivileges.SomeMethod SomeParameters
RasPrivileges.SomeProperty = SomeValue
...

You can use CreateObject function also, of course:

Dim RasPrivileges As UserManager.RasPrivileges
...
Set RasPrivileges = CreateObject("UserManager.RasPrivileges")
RasPrivileges.SomeMethod SomeParameters
RasPrivileges.SomeProperty = SomeValue
...

4. Visual Studio .NET (ASP.Net, VB.Net, C#, J#)

You can reference the library using menu Project -> Add reference -> COM tab -> select 'ActiveX UserManager 1.7' in the listbox -> click Select. Then you can write (C#, J#):

 //create  a new RasPrivileges object
 UserManager.RasPrivileges RasPrivileges = new UserManager.RasPrivilegesClass(); 
 RasPrivileges.set_String("Some text value"); 
 





 String SQL; 
 SQL = "Insert Into Table (BinaryColumn) values (0x" + RasPrivileges.get_HexString() + ")"; ...

or (VBA)

Dim RasPrivileges As New UserManager.RasPrivileges 
RasPrivileges.SomeMethod(SomeParameters)
RasPrivileges.SomeProperty = SomeValue

5. T-SQL, MS SQL stored procedures and functions

DECLARE @RasPrivileges INT, @OLEResult INT 
EXECUTE @OLEResult = sp_OACreate 'UserManager.RasPrivileges', @RasPrivileges OUT
IF @OLEResult <> 0 PRINT 'Error create component RasPrivileges'

--Set a property of RasPrivileges.
EXECUTE @OLEResult = sp_OASetProperty @RasPrivileges, 'PropertyName', @SomeSQLValue
IF @OLEResult <> 0 PRINT 'PropertyName set problem'

--Get a value of a property of RasPrivileges.
EXECUTE @OLEResult = sp_OAGetProperty @RasPrivileges, 'PropertyName', @SomeSQLValue OUTPUT
IF @OLEResult <> 0 PRINT 'PropertyName get problem'

--Call some method of RasPrivileges.
EXEC @OLEResult = sp_OAMethod @RasPrivileges, 'MethodName', 
 @ReturnValue OUTPUT, @parameter1, @parameter2

5. Other programming environments

Please see documentation of your programing environment, work with COM objects (OLE objects, ActiveX objects). RasPrivileges is a standard COM object, it can work with other environments, such are Delphi or PowerBuilder.