远程修改环境变量

最新推荐文章于 2024-11-17 19:10:15 发布

Qchenping

最新推荐文章于 2024-11-17 19:10:15 发布

阅读量859

点赞数

CC 4.0 BY-SA版权

分类专栏： WMI研究文章标签： variables system each

本文链接：https://blog.youkuaiyun.com/Qchenping/article/details/5959659

WMI研究专栏收录该内容

2 篇文章

订阅专栏

本文介绍如何通过Windows Management Instrumentation (WMI)在Windows系统中创建和修改环境变量。主要内容包括连接WMI命名空间、创建环境变量实例及更新现有环境变量的值。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

连接WMI:(Imports System.Management)

//wmi root/cimv2命名空间
oConnOpts.Username = user
oConnOpts.Password = password
oConnOpts.Impersonation = ImpersonationLevel.Impersonate
oConnOpts.EnablePrivileges = True
Scope = New ManagementScope("//" & strWMI & "/root/cimv2", oConnOpts)

Scope.connect()

创建变量

        Dim wmiPath As New ManagementPath("win32_Environment")
        Dim mc As New ManagementClass(Scope, wmiPath, Nothing)
        mc.Get()
        Dim mo As ManagementObject = mc.CreateInstance()
        mo.SetPropertyValue("Name", keyName)
        mo.SetPropertyValue("VariableValue", KeyValue)
        mo.SetPropertyValue("UserName", "<System>")
        mo.Put()

修改变量值

//keyName 环境变量名称

Dim searcher As New ManagementObjectSearcher("//" & machine & "/root/cimv2", "SELECT * FROM Win32_Environment WHERE Name='" & keyName & "'")
            searcher.Scope = Scope
            If searcher.Get().Count > 0 Then
                For Each queryObj As ManagementObject In searcher.Get()
                    queryObj.SetPropertyValue("VariableValue", KeyValue)
                    queryObj.Put()
                    SubLog.WriteLog(DateTime.Now.ToString() & ": " & machine & " setting the environment Variables: " & keyName & " & value: " & KeyValue & vbCrLf)
                Next