Joining HMI PC to domain using FT SE

Hello,

We have mapped the HMI PC to the domain and generated new users in the domain and tried to run the application and login with the new users, we got fail with a Permission Denied exception

We trace VBA code and found the root cause of the issue is that the VBA script is looking at which groups the login user is a part of does not have permission to look at domain users. This is because the VBA script is running under the local HMIUser account, which does not have any visibility on whichever domain the PC is joined to.

  see below

Function getCurrentUsersGroup(Optional username As String) As String

        Dim strUserName As String
        Dim Domain As String
        Dim i As Integer
        Dim userLevel As Integer
        userLevel = 0
        i = 0
                
        Dim objGroup    As Object
        Dim objUser     As Object
        Dim objNetwork  As Object
        
        If username = "" Then
            Set objNetwork = CreateObject("WScript.Network")
            strUserName = objNetwork.UserDomain & "/" & objNetwork.username
        Else
            strUserName = username
        End If
        
        strUserName = Replace(strUserName, "\", "/")
        If InStr(strUserName, "/") Then
            ' No action: Domain has already been supplied in the user name
        Else
                Set objNetwork = CreateObject("WScript.Network")
                Domain = objNetwork.UserDomain
                strUserName = Domain & "/" & strUserName
        End If
        
        Set objUser = GetObject("WinNT://" & strUserName & ",user")
        If objUser Is Nothing Then
            ' Error handling
        Else
            For Each objGroup In objUser.Groups
                i = getAuthLevel(objGroup.name)
                If userLevel < i Then
                    userLevel = i
                End If
            Next objGroup
        End If
        

GetObject looks for user object... if that user is on a domain (eg. TESTDOMAIN\domeng )

then it will fail with a Permission Denied exception

I am wondering if there is a function/method that we can use to solve this issue?

I am not very fluent in VBA but I think I could stumble through it if given an idea of how to tackle this.

Thank you and appreciate your response in advance