topic Re: GetComputeName / GetUserName in Software Archive

GetComputeName / GetUserName

davidgraham — Sat, 10 Mar 2001 01:20:28 GMT

I am trying to use the GetComputerName / GetUserName functions but I get an error when I run them - the parameters must be wrong.

Does anyone have a example of using these functions, or is there a better way to get the Computer Name / User Name?

Thanks, David

Re: GetComputeName / GetUserName

Jugoslav_Dujic — Sat, 10 Mar 2001 01:48:28 GMT

It's fishy declaration of GetComputerName / GetUserName in ADVAPI32.f90 and KERNEL32.f90. The docs say that nSize argument is actually, speaking in fortran terms, INTENT(INOUT), i.e. it's a pointer to an integer, not integer-by-value. Thus, it would be more natural that the fortran declaration has !DEC$ATTRIBUTES REFERENCE:: nSize

Workaround for that is to pass LOC(nSize) argument, not nSize:

 
CHARACTER(40):: sUser 
 
nSize=40 
bSt=GetUserName(sUser,LOC(nSize))

Jugoslav

Re: GetComputeName / GetUserName

sabalan — Sat, 10 Mar 2001 02:00:50 GMT

INTEGER*4 Result

CHARACTER*(As long as needed) UserName, CompName

Result = GETENVQQ("USERNAME", UserName)
Result = GETENVQQ("COMPUTERNAME", CompName)

USERNAME and COMPUTERNAME are true for W2K. Enter SET at command line to see what they are called in your OS.

Sabalan.

Re: GetComputeName / GetUserName

sabalan — Sat, 10 Mar 2001 02:04:26 GMT

USE DFLIB

INTEGER*4 Result

CHARACTER*(As long as needed) UserName, CompName

Result = GETENVQQ("USERNAME", UserName)

Result = GETENVQQ("COMPUTERNAME", CompName)

USERNAME and COMPUTERNAME are true for W2K. Enter SET at command line to see what they are called in your OS.

Sabalan.

Re: GetComputeName / GetUserName

davidgraham — Tue, 13 Mar 2001 03:29:27 GMT

Thanks, they both worked fine.

David