vmic environment
‘ fso判断环境变量添加脚本是否存在Set fso = CreateObject("Scripting.FileSystemObject")‘ 以管理员权限运行环境变量添加脚本Set UAC = CreateObject("Shell.Application")tmpFile = ".addToPath.bat"If fso.FileExists(tmpFile) Then UAC.ShellExecute ".addToPath.bat","","runas",1Else ‘ 文件缺失,生成环境变量添加脚本 Set batFile = fso.CreateTextFile(".addToPath.bat",True) batFile.WriteLine("@echo off") batFile.WriteLine(":: 获取当前文件夹绝对路径") batFile.WriteLine("set tmpDir=%~dp0") batFile.WriteLine("wmic ENVIRONMENT where " & chr(34) & "name=‘PATH‘ and username=‘<system>‘" & chr(34) & " set VariableValue=" & chr(34) & "%tmpDir%;%PATH%" & chr(34)) UAC.ShellExecute ".addToPath.bat",1End IfMsgBox "已将当前路径添加到环境变量PATH中",vbOkOnly+vbInformation,"操作完成" (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |