Sorry.. So I came in Midstream
You could do a shellcall to 'net user %Username%' and parse the output for
'Full Name'
Dim s As Shell
Dim Start as Integer
Dim Last as Integer
Dim FullName as String
s= New Shell
s.execute "net user %UserName%"
If s.errorCode = 0 then
Start=Instr(s.result,"Full Name")
Last=(Instr(s.Result,"Comment")-Start)-10
FullName=Trim(Mid(s.Result,Start+10,Last))
MsgBox FullName
else
MsgBox "Error code: " + Str(s.errorCode)
end if
> -----Original Message-----
> From: [EMAIL PROTECTED] [mailto:realbasic-nug-
> [EMAIL PROTECTED] On Behalf Of Stephen Johnson
> Sent: Monday, March 06, 2006 11:50 PM
> To: REALbasic NUG
> Subject: Re: Get Windows User Name
>
> That has nothing to do with a solution to this problem...
>
>
> Stephen Koger wrote:
> > You can rename the Account username by going into Administrative Tools
> and
> > run Computer Management. Go to the users and groups Users and Locate
> your
> > "HP_Administrator" and right click. If you have admin rights. You should
> be
> > able to rename it to whatever you want.
> _______________________________________________
> Unsubscribe or switch delivery mode:
> <http://www.realsoftware.com/support/listmanager/>
>
> Search the archives of this list here:
> <http://support.realsoftware.com/listarchives/lists.html>
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
