219.htm

vb功能实例介绍。详细、很好的实例说明。

<p>远程启动机器ABC WMI解决方案 </p>
<p></p>
<p>　　这个解决方案从代码方面看是一个很容易执行的方法，可下载代码包是：RebootNT_WMI.zip。首先要设置对Microsoft WMI 脚本库wbemdisp.tlb的引用，这可以从VB代码中调用（本例中就是这样），或者从脚本语言中调用，比如：</p>
<p></p>
<p></p>
<p>Private Sub cmdLocalReboot_Click() </p>
<p></p>
<p>Dim p_objSet As SWbemObjectSet </p>
<p></p>
<p>Dim p_objSWbemObj As Object </p>
<p></p>
<p>Set p_objSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2"). _ </p>
<p></p>
<p>ExecQuery("select * from Win32_OperatingSystem where Primary=true") </p>
<p></p>
<p>For Each p_objSWbemObj In p_objSet </p>
<p></p>
<p>p_objSWbemObj.reboot </p>
<p></p>
<p>Next p_objSWbemObj </p>
<p></p>
<p>End Sub </p>
<p></p>
<p></p>
<p></p>
<p>Private Sub cmdRemoteReboot_Click() </p>
<p></p>
<p>Dim p_objSet As SWbemObjectSet </p>
<p></p>
<p>Dim p_objSWbemObj As Object </p>
<p></p>
<p>Dim p_strServer As String </p>
<p></p>
<p>p_strServer = Me.Text1.Text </p>
<p></p>
<p>Set p_objSet = GetObject("winmgmts:{(Debug,RemoteShutdown)}//" _ </p>
<p></p>
<p>& p_strServer & "/root/cimv2"). _ </p>
<p></p>
<p>ExecQuery("select * from Win32_OperatingSystem where Primary=true") </p>
<p></p>
<p>For Each p_objSWbemObj In p_objSet </p>
<p></p>
<p>p_objSWbemObj.reboot </p>
<p></p>
<p>Next p_objSWbemObj </p>
<p></p>
<p>End Sub   </p>
<p></p>
<p></p>
<p></p>
<p></p>
<p>这个相当简易的方法的缺点是：WMI 只在Win2K操作系统上有效。对于NT 4.0或 Win9x，就必须下载并安装WMI ，详细资料请参见MSDN。并且，这个方法对Win9x的重新启动不起作用。 </p>
<p></p>
<p></p>
<p>结 语 </p>
<p></p>
<p></p>
<p>OK，如果你需要在网络上重新启动一个或多个计算机，上面已经向你展示了一些不同的方法。请记住，如果你强制执行重新启动，那么无论选择哪种方法，任何打开的程序都将没有机会来保存那些未经存储的数据。 </p>