Run CMD Function In NAV 2016

Isaland

Need to develop CMD opertation net use to map network drive from NAV 2016.

Trying to use DotNet variable:

• System.Diagnostics.Process.'System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'
• System.Diagnostics.ProcessStartInfo.'System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'

MappingCMDString:

net use %1 %2 /user %3 %4 /persistent:yes

The code:

SystemDiagnosticsProcessStartInfo := SystemDiagnosticsProcessStartInfo.ProcessStartInfo('cmd','/c"' + STRSUBSTNO(MappingCMDString,DriveLetter,Path,UserName,Password) + '"');
SystemDiagnosticsProcessStartInfo.RedirectStandardError := TRUE;
SystemDiagnosticsProcessStartInfo.RedirectStandardOutput := TRUE;
SystemDiagnosticsProcessStartInfo.UseShellExecute := FALSE;
SystemDiagnosticsProcessStartInfo.CreateNoWindow := TRUE;
SystemDiagnosticsProcess := SystemDiagnosticsProcess.Start(SystemDiagnosticsProcessStartInfo);
CLEAR(SystemDiagnosticsProcess);

But nothing being processed. Where i did mistake?

Isaland

The problem was in CMD string. I have wrong syntax.

Wisa123

Try to use RunOnClient = Yes on your DotNet Variables to actually see if something happens - if you haven't done that already.

Isaland

Have tried - the same situation. Nothing happened.
Check this command via "Win + R" - it works.
So problem is in calling this line from NAV.

Isaland

The problem was in CMD string. I have wrong syntax.

jordi79

Hi Isaland,

I tried your code in the 1st post, but also could not get it to work. You mentioned in your last post, it was due to a wrong syntax. What was wrong with the syntax?

Jordi

jordi79

Hi,

I found out what's wrong. for other ppl looking to this, the correct code is -->

SystemDiagnosticsProcessStartInfo := SystemDiagnosticsProcessStartInfo.ProcessStartInfo('cmd','/c ' + STRSUBSTNO(MappingCMDString,DriveLetter,Path,UserName,Password));
SystemDiagnosticsProcessStartInfo.RedirectStandardError := TRUE;
SystemDiagnosticsProcessStartInfo.RedirectStandardOutput := TRUE;
SystemDiagnosticsProcessStartInfo.UseShellExecute := FALSE;
SystemDiagnosticsProcessStartInfo.CreateNoWindow := TRUE;
SystemDiagnosticsProcess := SystemDiagnosticsProcess.Start(SystemDiagnosticsProcessStartInfo);
CLEAR(SystemDiagnosticsProcess);

Changes are in line 1 of the code. Removed double quotes and added a <space> after /c

Jordi