Qchenping的专栏

<br />Dim wmiPath As New ManagementPath("win32_OperatingSystem")<br />Dim mc As New ManagementClass(Scope, wmiPath, Nothing)<br /> mc.Get()<br /> Dim wmi_in As ManagementBaseObject<br />wmi_in = mc.GetMethodParameters("Win32Shutdown")<br />wmi_in("Flags")

<br />连接WMI:(Imports System.Management)<br />//wmi root/cimv2命名空间<br />oConnOpts.Username = user<br />oConnOpts.Password = password<br />oConnOpts.Impersonation = ImpersonationLevel.Impersonate<br />oConnOpts.EnablePrivileges = True<br />Scope = New Manage