interactive services namedpipes working directpry

[nbk01]

Hi,
my OS is windows 7 X64 and i try to open a openvpn process via named Pipes in vb.Net

Code: Select all

                Dim pipeClient As New NamedPipeClientStream( _
                    ".", "openvpn\service", _
                    PipeDirection.InOut, PipeOptions.Asynchronous)

                pipeClient.Connect(100000)

the code opens the NamedPipe without problems.

Then i send the start request

Code: Select all

               
               Dim Nullbyte As Byte = &H0
                Dim getbytes_xpb As Byte() = System.Text.Encoding.ASCII.GetBytes(workingdir_xps & Chr(Nullbyte) & vpnoptioons_xps & Chr(Nullbyte) & Chr(Nullbyte))
                pipeClient.Write(getbytes_xpb, 0, getbytes_xpb.Length)

But the only Response I get is

Startup data ends at working directory

I changed the Variable workingdir_xps to something like C:\Pedro but nothing works so far.
It doesn't matter, if i send the folder of openvpn.exe or any other Folder i have access to .
When i send C:\Pedro\ the service Responds with

Startup data is not NULL terminated

I looked at the source code

Code: Select all

    sud->directory = data;
    len = wcslen(sud->directory) + 1;
    size -= len;
    if (size <= 0)
    {
        MsgToEventLog(M_ERR, TEXT("Startup data ends at working directory"));
        ReturnError(pipe, ERROR_STARTUP_DATA, L"GetStartupData", 1, &exit_event);
        goto err;
}

but that didn't help at all, because i clearly send something, so len should not be 0
I hope somebody can give me a hint, what open expects from me.
thx

[novaflash]

This topic is entirely not related to OpenVPN Access Server.

[nbk01]

Then you should explain were the topic should go.

[TinCanTech]

Please see:
viewtopic.php?f=30&t=22603

[nbk01]

So, after opening a bug ticket i got the explanation.
The interactive service needs 16 Bit UTF
In Vb.net you need to

Code: Select all

 Dim uni As New UnicodeEncoding()
            'System.Text.Encoding.ASCII.
            Dim getbytes_xpb As Byte() = uni.GetBytes(workingdir_xps & Chr(Nullbyte) & vpnoptioons_xps & Chr(Nullbyte) & Chr(Nullbyte))

This it anybody looks for the same thing