VBA issues with references to 32 bit .dlls running under Windows 10 64 bit

[NewOrderFac33]

Good afternoon,

We are going through a Win7/Office 2010 -> Win10/Office 2016 upgrade and some code that previously worked now no longer does.
In particular, I have a function to trap the ID of the currently logged on user thus:

-----------------------------------------------------------------------------------------------
Example 1 (Trapping Windows UserName)
-----------------------------------------------------------------------------------------------
Public Declare Function GETUSERNAME Lib "advapi32" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Called by:
Function GetWinUserName() As String
    Dim szBuffer As String * 100
    Dim lBufferLen As Long
    lBufferLen = 100
    If CBool(GETUSERNAME(szBuffer, lBufferLen)) Then
        GetWinUserName = Left$(szBuffer, lBufferLen - 1)
    Else
        GetWinUserName = CStr(Empty)
    End If
End Function

Called by:
Sub ShowWinUserName()
    MsgBox (GetWinUserName)
End Sub

-----------------------------------------------------------------------------------------------
Example 2 (Trapping Screen resolution)
-----------------------------------------------------------------------------------------------
Public Declare Function GETSYSTEMMETRICS Lib "user32.dll" (ByVal nIndex As Long) As Long '

Called by:
Sub SetScreenResolution()
    Dim x As Long
    Dim y As Long
    x = GETSYSTEMMETRICS(SM_CXSCREEN)
    y = GETSYSTEMMETRICS(SM_CYSCREEN)
    MsgBox ("Screen resolution = " & x & " X " & y)
End Sub

-----------------------------------------------------------------------------------------------
Example 3 (Trapping Computer Name)
-----------------------------------------------------------------------------------------------
'Private Declare Function GETCOMPUTERNAME Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Called by:
'Public Function NameOfComputer()
'    Dim ComputerName As String
'    Dim ComputerNameLen As Long
'    Dim Result As Long
'    ComputerNameLen = 256
'    ComputerName = Space(ComputerNameLen)
'    Result = GETCOMPUTERNAME(ComputerName, ComputerNameLen)
'    If Result <> 0 Then
'        NameOfComputer = Left(ComputerName, ComputerNameLen)
'    Else
'        NameOfComputer = "Unknown"
'    End If
'End Function

Called by:
Sub ShowComputerName()
    MsgBox (NameOfComputer)
End Sub

 -----------------------------------------------------------------------------------------------
Example 4 (Trapping TEMP path variable)
-----------------------------------------------------------------------------------------------
'Private Declare Function GETTEMPPATH Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Const MAX_PATH As Long = 260

Called by:
Function TempPath() As String
    TempPath = String$(MAX_PATH, Chr$(0))
    GETTEMPPATH MAX_PATH, TempPath
    TempPath = Replace(TempPath, Chr$(0), "")
End Function

Called by:
Sub ShowTempPath()
    MsgBox (TempPath)
End Sub
-----------------------------------------------------------------------------------------------

When I open the workbooks containing these functions, the Public/Private Declare lines are highlighted in red. and all related functions and Procedures have to be commented out.
I'm bright enough to figure out that they're 32bit dll-related issues (kernel32.dll, user32.dll & advapi32.dll) but I don't know what the 64bit equivalents of my examples are!
Can anyone help, please?

As always, thanks in advance

Pete

 

[NewOrderFac33]

I worked out ComputerName, UserName and FULL username with the following:

Function GetUserName(strLDAP)
    
    Dim objUser
    Dim strName
    Dim arrLDAP
    Dim intIdx
    
    On Error Resume Next
    strName = ""
    Set objUser = GetObject("LDAP://" & strLDAP)
    
    If Err.Number = 0 Then
      strName = objUser.Get("givenName") & Chr(32) & objUser.Get("sn")
    End If
    
    If Err.Number <> 0 Then
      arrLDAP = Split(strLDAP, ",")
      For intIdx = 0 To UBound(arrLDAP)
        If UCase(Left(arrLDAP(intIdx), 3)) = "CN=" Then
          strName = Trim(Mid(arrLDAP(intIdx), 4))
        End If
      Next
    End If
    
    Set objUser = Nothing
    
    GetUserName = strName
  
End Function
  
Sub MyDetails()
    
    Dim objInfo
    Dim strLDAP
    Dim MyFullName
    
    Dim MyUserName As String
    Dim MyUserDomain As String
    Dim MyComputerName As String
    Dim MyUserProfile As String
    Dim MyFullDetails As String
      
    Set objInfo = CreateObject("ADSystemInfo")
    strLDAP = objInfo.UserName
    Set objInfo = Nothing
    
    MyFullName = GetUserName(strLDAP)
    MyUserName = Environ("UserName")
    MyUserDomain = Environ("UserDomain")
    MyComputerName = Environ("ComputerName")
    MyUserProfile = Environ("UserProfile")
    
    MyFullDetails = "Username: " & MyUserName & Chr(10) & _
        "Full Name: " & MyFullName & Chr(10) & _
            "Domain: " & MyUserDomain & Chr(10) & _
                "ComputerName: " & MyComputerName & Chr(10) & _
                    "Profile: " & MyUserProfile
    
    MsgBox (MyFullDetails)
    
End Sub

The screen resolution one isn't being used anywhere at the moment, so not madly urgent.
Thanks if you took an interest.
Pete

 

[jkpieterse]

Sounds as if you have installed 64 bit Office (non-default). See: https://jkp-ads.com/articles/apideclarations.asp