| 网站首页 | VB.Net实例分析 | .Net技术文摘 | 下载中心 | VB.Net书籍笔记 | .Net源码 | VBS脚本与组件调用 | Windows2008技术文摘 | 给我们留言 | 
最新公告:

  没有公告

您现在的位置: 乐博网 >> VB.Net实例分析 >> 系统管理编程 >> 实例分析正文
最新推荐 更多内容
VB.Net重命名Winstation的实例
VB.Net重命名Winstation的实例
作者:Iva    来源:乐博网     更新时间:2008-1-15

重命名 Winstation。函数采用一个参数 -- New Terminalname。如果成功,调用返回 0,如果失败,调用返回一个错误。

Imports System
Imports System.Management
Imports System.Windows.Forms

Namespace WMISample

    Public Class CallWMIMethod

        Public Overloads Shared Function Main() As Integer

            Try

                Dim classInstance As New ManagementObject( _
                    "root\CIMV2", _
                    "Win32_Terminal.ReplaceKeyPropery='ReplaceKeyPropertyValue'", _
                    Nothing)

                ' Obtain [in] parameters for the method
                Dim inParams As ManagementBaseObject = _
                    classInstance.GetMethodParameters("Rename")

                ' Add the input parameters.

                ' Execute the method and obtain the return values.
                Dim outParams As ManagementBaseObject = _
                    classInstance.InvokeMethod("Rename", inParams, Nothing)

                ' List outParams
                Console.WriteLine("Out parameters:")
                Console.WriteLine("ReturnValue: {0}", outParams("ReturnValue"))

            Catch err As ManagementException

                MessageBox.Show("An error occurred while trying to execute the WMI method: " & err.Message)
            End Try
        End Function
    End Class
End Namespace

  • 上一篇:

  • 下一篇:
  • 【字体: 】【打印此文】【关闭窗口
      相关文章:(只显示最新16条)
    重命名用户帐户名称的实例
    用户定义的控制代码发送给终端服务的实例
    VB.Net创建终端服务的实例
    VB.Net更改终端服务启动模式的实例
    VB.Net启用或停用终端的实例

    | 设为首页 | 加入收藏 | 联系站长 | | 友情链接 | 版权申明 |
    乐博网欢迎各种媒体转载我们的原创作品[转载请注明出处];我们鼓励更多VB.Net开发者一起加入研究与探讨;如发现文章访问错误、内容错误或版权疑问、内容有违相关法律(如涉及政治、色情、反动或散布虚假有害信息)等情况,请及时向我们举报,我们将及时纠正!
    联系邮箱:Shiny#vip.qq.com (#替换为@) QQ交流群: 40797788 [闽ICP备05014267号]