You don't appear to be setting the Size (eg. Size := 64) - you do in the VB
(lSize = Len(sBuffer)).
HTH
Regards
Paul
[EMAIL PROTECTED]
(Wellington - New Zealand)
�> -----Original Message-----
�> From: Chris Crowe [mailto:[EMAIL PROTECTED]]
�> Sent: Monday, 26 July 1999 01:30 PM
�> To: Multiple recipients of list delphi
�> Subject: [DUG]: UserName from Delphi/VB/ and COM Controls
�>
�>
�> var
�> Buffer : Array[0..255] of char;
�> Size : DWORD;
�> begin
�> GetUserName(Buffer, Size);
�> ShowMessage('The username is "'+StrPas(Buffer)+'"');
�> end;
�>
�> If I run the bit of code above in Delphi I get the current
�> user account that
�> I am logged in as. Say "Administrator"
�>
�> If I move that code to a COM Control; below is my code
�>
�> var
�> Buffer : Array[0..255] of char;
�> Size : DWORD;
�> begin
�> GetUserName(Buffer, Size);
�> m_scriptContext.Response.Write('<P><P>This script is
�> running under the
�> "'+StrPas(Buffer)+'" account</P><P>');
�> end;
�>
�> I then run it from a ASP Page I get an output of
�>
�> This script is running under the "hj4e" account
�>
�> Any ideas? I do not have an account called "hj4e", I would
�> expect it to use
�> "INET_ADROCK" since adrock is the server's name.
�>
�> If I set the DELPHI Com control to run under MTS and to
�> force it to use a
�> specific user account say ADMINISTRATOR, it still returns
�> the same output.
�>
�> This script is running under the "hj4e" account
�>
�> I did the same running test uses a VB COM Control.
�>
�> Public Property Get UserName() As Variant
�> Dim sBuffer As String
�> Dim lSize As Long
�> sBuffer = Space$(255)
�> lSize = Len(sBuffer)
�> Call GetUserName(sBuffer, lSize)
�> UserName = "The username that this component is
�> running in is " +
�> Left$(sBuffer, lSize)
�> End Property
�>
�> The username that this component is running in is "INET_ADROCK"
�>
�> And when I put it into MTS and force it to use the
�> ADMINISTRATOR account I
�> get
�>
�> The username that this component is running in is "Administrator"
�>
�> How come I do not get the same from the Delphi COM Control?
�>
�> Chris
�>
�> -------------------------------------------------------------
�> --------------
�> New Zealand Delphi Users group - Delphi List -
�> [EMAIL PROTECTED]
�> Website: http://www.delphi.org.nz
�>
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
