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

时间:2017-12-21 22:40:05

标签: vb.net process

我看到很多类似的问题,但我仍然坚持。我可以从cmd提示符运行nltest.exe,但不能以编程方式运行。

这是失败的代码,异常“​​System.dll中发生了'System.ComponentModel.Win32Exception'类型的未处理异常”

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()

因此,我修改为使用cmd / c,如下所示:

    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()

使用cmd / c,代码运行但只创建一个空文件c:\ temp \ where.txt 如果我从“开始”菜单(Windows 10)手动运行该命令,则运行正常,该文件包含站点位置。

我是否在这两次尝试中都犯了一个基本错误?

1 个答案:

答案 0 :(得分:0)

为了使用活动目录函数dsgetsite,我放弃了命令行函数nltest并根据netapi32.dll翻译了converter.telerik.com找到的c#(使用http://adcoding.com/using-dsgetsitename-in-c-sample-how-to-get-the-name-of-the-site-where-a-computer-resides/)。

我将此行添加到我的vb.net代码模块的IMPORTS部分

Imports System.Runtime.InteropServices

然后我添加到主模块

  <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

当我想从该工作站找到工作站的站点名称时,我调用函数GetLocation()。