例外-系统找不到指定的文件

Question

I see numerous similar questions to this, but I remain stuck. I can run nltest.exe from a cmd prompt but not programmatically.

Here is the code that fails with exception "An unhandled exception of type 'System.ComponentModel.Win32Exception' occurred in System.dll"

Dim pz As New Process()
pz.StartInfo.FileName = "nltest.exe"
pz.StartInfo.Arguments = " /dsgetsite > c:\temp\where.txt"
pz.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
pz.Start()

So, I modified to use cmd /c as follows:

    Dim pz As New Process()
    pz.StartInfo.FileName = "cmd"
    pz.StartInfo.Arguments = " /c nltest /dsgetsite > c:\temp\where.txt"
    '       pz.StartInfo.WindowStyle = ProcessWindowStyle.Maximized
    pz.Start()
    pz.WaitForExit()

Using cmd /c, the code runs but only creates an empty file c:\\temp\\where.txt.
If I run the command manually from the Start menu (Windows 10), this runs fine and the file contains the site location.

Am I making a basic error in either/both of these attempts?

Answer 1

In order to use the active directory function dsgetsite, I gave up on commandline function nltest and translated the c# (using converter.telerik.com ) found at http://adcoding.com/using-dsgetsitename-in-c-sample-how-to-get-the-name-of-the-site-where-a-computer-resides/ based on netapi32.dll.

I added this line to my IMPORTS section of my vb.net code module

Imports System.Runtime.InteropServices

I then added to the main Module

  <DllImport("netapi32.dll", CharSet:=CharSet.Auto)>
  Public Function DsGetSiteName(ByVal ComputerName As String, <Out> ByRef SiteName As IntPtr) As Integer
  End Function

  Public Function GetLocation()
       Dim pSiteInfo As IntPtr
       Dim sSiteName As String = ""
        If DsGetSiteName(String.Empty, pSiteInfo) = 0 Then
              sSiteName = Marshal.PtrToStringAuto(pSiteInfo)
        End If
       Return sSiteName 
  End Function

And when I want to find the site name of a workstation from that workstation, I call the function GetLocation().