I am trying to call the WTSSetUserConfig function from VB.Net but it does not seem to work. I always get the error: "The user does not exist". But when I am using the function WTSQueryUserConfig to get the information i works ok.

My code is as follows

Const WTSUserConfigTerminalServerProfilePath = &HF

Private Declare Auto Function WTSSetUserConfig Lib "wtsapi32"
         Alias "WTSSetUserConfigA" (ByVal pServerName As String,
         ByVal pUserName As String, ByVal WTSConfigClass As Integer,
         ByVal pBuffer As String, ByRef pBytes As Integer) As Boolea

sub test(
       Dim buffer As Strin
       Dim pBytes As Intege
       Dim server As String = "\\server
       Dim user As String = "user
       Dim res As Intege
       buffer = "\\server\profile
       pBytes = Len(buffer
       res = WTSSetUserConfig(server, user, WTSUserConfigTerminalServerProfilePath, buffer, pBytes
       If res > 0 The
           MsgBox(buffer
       Els
           Throw New System.ComponentModel.Win32Exception(System.Runtime.InteropServices.Marshal.GetLastWin32Error()
       End I
end su