Logon issue with Windows 2016 server , Earlier I was able to login previously with code written in VB

Question

dim objUser

On Error Resume next

Set objUser = GetObject("WinNT://" & strAddress & "/" & strUserid & ", user")