I am trying to access a server using LogonUser function as follows
Dim returnValue As Boolean = LogonUser(Domain\UserName, MachineName,
password, LOGON32_LOGON_NEW_CREDENTIALS, LOGON32_PROVIDER_DEFAULT,
tokenHandle)

A long time ago, it was easy to tell application teams that they were not to
store secrets compiled into their code; as there were many people with the
skills necessary to dissassemble and decompile applications and retrieve
those secrets.  Today, however, there are tools that ...