Re: current user in vb

Article View: be.comp.programming

Article #13606

Back to be.comp.programming Previous Next

#13606

From: BuiZe
Date: Sat, 16 Jun 2001 18:05

7 lines
1376 bytes

Private Declare Function GetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Dim strUserName As String
strUserName = String(200, Chr$(0))
GetUserName strUserName, 200
strUserName = Left$(strUserName, InStr(strUserName, Chr$(0)) - 1)

Technical Details

Message-ID: <5eNW6.39707$mR5.5143730@afrodite.telenet-ops.be>

Path:

arc1-ca.pugleaf.net!archiver1.google.com!newsfeed.google.com!sn-xit-02!supernews.com!newsfeed.direct.ca!look.ca!opentransit.net!newsfeeds.belnet.be!news.belnet.be!afrodite.telenet-ops.be!not-for-mail

References: <3QuW6.36438$mR5.4803429@afrodite.telenet-ops.be>

Show Full Headers

Complete Article Headers

X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: fcea4,b3f2cf9cd57c2459
X-Google-Attributes: gidfcea4,public
X-Google-ArrivalTime: 2001-06-16 11:05:56 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!newsfeed.google.com!sn-xit-02!supernews.com!newsfeed.direct.ca!look.ca!opentransit.net!newsfeeds.belnet.be!news.belnet.be!afrodite.telenet-ops.be!not-for-mail
Reply-To: "BuiZe" <newsgroups@buize.cjb.net>
From: "BuiZe" <newsgroups@buize.cjb.net>
Newsgroups: be.comp.programming
References: <3QuW6.36438$mR5.4803429@afrodite.telenet-ops.be>
Subject: Re: current user in vb
Lines: 9
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 5.00.2615.200
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2615.200
Message-ID: <5eNW6.39707$mR5.5143730@afrodite.telenet-ops.be>
Date: Sat, 16 Jun 2001 18:05:53 GMT
NNTP-Posting-Host: 213.118.6.89
X-Complaints-To: abuse@pandora.be
X-Trace: afrodite.telenet-ops.be 992714753 213.118.6.89 (Sat, 16 Jun 2001 20:05:53 MET DST)
NNTP-Posting-Date: Sat, 16 Jun 2001 20:05:53 MET DST
Organization: Telenet Internet

Reply to Parent Message