* 小心使用 ExpandEnvironmentStrings !!!*

最新推荐文章于 2023-04-18 14:39:32 发布

原创最新推荐文章于 2023-04-18 14:39:32 发布 · 3.2k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#system

本文介绍了一个关于使用ExpandEnvironmentStrings获取%appdata%路径时可能出现的问题，并提供了解决方案，建议使用SHGetFolderPath来避免由外部程序启动导致的路径获取错误。

最近被一个bug折腾了一下,

用ExpandEnvironmentStrings 获取 %appdata%

正常情况下没问题, 但是当你的程序被外部程序启动时, 可能会产生获取错误的问题(非失败). 比如system给你启动.

应该用 SHGetFolderPath 获取.

确定要放弃本次机会？

福利倒计时

: :

立减 ¥

普通VIP年卡可用

立即使用

WvW

关注关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
分享

复制链接

分享到 QQ

分享到新浪微博

扫一扫
举报

举报

vbs教程《环境变量》

小黑的博客主页

12-29

2681

set ws = createobject("wscript.shell") rem 获取环境变量值 rem msgbox(ws.expandenvironmentstrings("%path%")) rem msgbox(ws.expandenvironmentstrings("%xiaohei_path%")) rem 系统环境变量对象集合 rem set envs = ws.enviro

ExpandEnvironmentStringsA( )函数

yellow的博客

06-15

3902

第一次看到这个函数感觉是新增一个环境变量，再看传入的参数又感觉不像。扩充环境字符串：将由百分号封闭起来的环境变量名转换成那个变量的内容。可以写个例子看看 #include <stdio.h> #include <windows.h> int main(int argc,char* argv, char* env) { char l_szSrcA[256]={"...

参与评论您还未登录，请先登录后发表或查看评论

vbs笔记

aplcyd的博客

05-06

471

1.Roaming Set oShell = CreateObject(“WScript.Shell”) strHomeFolder = oShell.ExpandEnvironmentStrings(“%APPDATA%”) wscript.echo strHomeFolder C:\Users\username\AppData\Roaming 2.Local Const ssfAPPDATA = &H1C Set oShell = CreateObject(“Shell.Application”

Windows 系统环境变量解释

weixin_33966095的博客

01-31

296

在Dos输入：SET 而不加参数，可以显示Windows当前的环境变量。 Windows 系统环境变量列表： %ALLUSERSPROFILE% 列出所有用户Profile文件位置。 %APPDATA% 列出应用程序数据的默认存放位置。 %CD% 列出当前目录。 %CLIENTNAME% 列出联接到终端服务会...

ExpandEnvironmentStrings 函数

豆子的collection

11-29

1万+

ExpandEnvironmentStrings 函数扩展环境变量字符串，并使用当前用户定义的值来替换这些环境变量字符串。如果要为特定的用户或系统指定环境块，请使用ExpandEnvironmentStrings函数语法CopyDWORD WINAPI ExpandEnvironmentStrings( __in LPCTSTR lpSrc, __o

ExpandEnvironmentStrings扩展系统变量

四维空间

12-12

709

CString csFilePathName; ::ExpandEnvironmentStrings(_T("%ProgramData%"), csFilePathName.GetBuffer(MAX_PATH), MAX_PATH); csFilePathName.ReleaseBuffer(); csFilePathName += _T("Test.txt"); if (PathFil...

If Not WScript.Arguments.Named.Exists("elevate") Then CreateObject("Shell.Application").ShellExecute WScript.FullName, """" & WScript.ScriptFullName & """ /elevate", "", "runas", 10 WScript.Quit End If Set oShell = CreateObject("WScript.Shell") Set oEnvSystem = oShell.Environment("SYSTEM") Set oFS = CreateObject("Scripting.FileSystemObject") Dim sBasePath, sJarFile sBasePath = oFS.GetParentFolderName(oFS.GetParentFolderName(WScript.ScriptFullName)) sJarFile = sBasePath & "\ja-netfilter.jar" If Not oFS.FileExists(sJarFile) Then MsgBox "ja-netfilter.jar not found", vbOKOnly Or vbCritical WScript.Quit -1 End If MsgBox "！！！！！！！！！！！请先关闭软件！！！！！！！！！！！" & vbCrLf & vbCrLf & "！！！！！！！！！！！请先关闭软件！！！！！！！！！！！" & vbCrLf & vbCrLf & "！！！！！！！！！！！请先关闭软件！！！！！！！！！！！" & vbCrLf & vbCrLf & "个别电脑执行脚本可能需要十多分钟." & vbCrLf & vbCrLf & "点击确定按钮后，一直等直到'完成'提示的弹出.即可进行下一步操作." & vbCrLf & vbCrLf & "仅用于研究学习请在使用后24小时内删除." Dim sEnvKey, sEnvVal, aJBProducts aJBProducts = Array("idea", "clion", "phpstorm", "goland", "pycharm", "webstorm", "webide", "rider", "datagrip", "rubymine", "appcode", "dataspell", "gateway", "jetbrains_client", "jetbrainsclient", "studio", "devecostudio") Set re = New RegExp re.Global = True re.IgnoreCase = True re.Pattern = "^\-javaagent:.*[\/\\]ja\-netfilter\.jar.*" Sub RemoveEnv(env) On Error Resume Next For Each sPrd in aJBProducts sEnvKey = UCase(sPrd) & "_VM_OPTIONS" sEnvVal = oShell.ExpandEnvironmentStrings("%" & sEnvKey & "%") If sEnvVal <> ("%" & sEnvKey & "%") Then env.Remove(sEnvKey) End If Next End Sub RemoveEnv oShell.Environment("USER") Dim sVmOptionsFile For Each sPrd in aJBProducts sEnvKey = UCase(sPrd) & "_VM_OPTIONS" sVmOptionsFile = sBasePath & "\vmoptions\" & sPrd & ".vmoptions" If oFS.FileExists(sVmOptionsFile) Then ProcessVmOptions sVmOptionsFile oEnvSystem(sEnvKey) = sVmOptionsFile End If Next Sub ProcessVmOptions(ByVal file) Dim sLine, sNewContent, bMatch Set oFile = oFS.OpenTextFile(file, 1, 0) sNewContent = "" Do Until oFile.AtEndOfStream sLine = oFile.ReadLine bMatch = re.Test(sLine) If Not bMatch Then sNewContent = sNewContent & sLine & vbLf End If Loop oFile.Close sNewContent = sNewContent & "-javaagent:" & sJarFile & "=jetbrains" Set oFile = oFS.OpenTextFile(file, 2, 0) oFile.Write sNewContent oFile.Close End Sub MsgBox "完成." 分析以上脚本功能及安全性

最新发布

09-14

strPath = objShell.ExpandEnvironmentStrings("%PATH%") WScript.Echo "当前 PATH 环境变量: " & strPath ``` 此代码获取并输出系统的 `PATH` 环境变量。 #### 正则匹配正则匹配用于在文本中查找符合特定模式的...

VBS脚本在系统管理中的应用：5分钟快速打开IE进行故障排查！

![VBS脚本在系统管理中的应用：5分钟快速打开IE进行故障排查！](https://www.therevisionist.org/wp-content/uploads/2016/05/facebookyes.png?x47895) ...# 1.... ## 1.1 脚本语言的简介 VBS（Visual

VBS脚本编程技巧：自动化打开IE并模拟用户交互的秘诀！

![VBS 打开 IE 两种方法](https://www.therevisionist.org/wp-content/uploads/2016/05/facebookyes.png?x47895) 参考资源链接：[VBScript中开启IE的两种...# 1.... ## 简介 Visual Basic Scripting Edition（VBS）是一种

编写代码获得当前用户名(GetUserName)、系统目录(GetSystemDirectory)、Windows所在目录(GetWindowsDirectory)、环境变量PATH的值等信息(ExpandEnvironmentStrings)，获得操作系统的版本信息(GetVersionEx)，不要使用GetVersionEx

05-15

好的，可以使用GetVersionEx函数的替代函数VerifyVersionInfo来获得操作系统的版本信息。下面是代码示例： ```c++ #include #include int main() { // 获取当前用户名 char username[UNLEN + 1]; DWORD ...

Js使用WScript.Shell对象执行.bat文件和cmd命令

10-25

- `ExpandEnvironmentStrings`方法：展开环境变量，如`%windir%`会被转换为实际的Windows安装目录。总之，WScript.Shell对象为JavaScript提供了一种强大的方式来与Windows操作系统进行交互，执行系统级别的任务，...

ExpandEnvironmentStrings函数的第二个参数的使用要注意

独孤龙城的专栏

09-24

2307

今天写了一个新类，然后在里面写了ExpandEnvironmentStrings这个函数的调用，灰常高兴得把类封装好了之后，拿到外部调用的时候，在delete的时候肯定会崩溃，我单步，也看了各种数据，都正常，后来我们组长看了一眼就知道了，不亏是专家。下面我上一点代码： class CFileAssociation { public: CFileAssociation(); ~CFil

[VBS]使用环境变量

小蜗牛之家

04-07

1457

Dim strDeskTop, strPath, objWsh 'Read Environment String--1 set objWsh=CreateObject("WScript.Shell") strDeskTop=objWsh.ExpandEnvironmentStrings("%dt%") strPath=objWsh.ExpandEnvironmentStrings("%pat...

使用计算机函数的意义,expandenvironmentstrings函数是什么？有什么作用？

weixin_42515392的博客

06-28

484

ExpandEnvironmentStrings，是一种计算机用语。说明扩充环境字串。具体操作过程与命令行处理的所为差不多。也就是说，将由百分号封闭起来的环境变量名转换成那个变量的内容。比如，“%path%”会扩充成完整路径。在vb里经常用于为新进程创建一个环境块参数表lpSrc ---------- String，欲扩充的字串lpDst ---------- String，扩充过后的字串nSiz...

在Windows ，是否有命令可以刷新命令提示中的环境变量？

dowemo的博客

11-14

2095

在Windows ，是否有命令可以刷新命令提示中的环境变量？你可以用一个vbs脚本捕获系统环境变量，但是需要一个bat脚本来实际改变当前的环境变量，所以这是一个组合的解决方案。创建一个名为 resetvars.vbs的文件，并将它的保存在路径上： Set oShell = WScript.CreateObject("WScript.Shell") filename

通过explorer.exe程序获取当前用户的Token，来获取个别系统目录

a1371192766的博客

04-18

431

是Windows程序管理器或者文件资源管理器，它用于管理Windows图形壳，包括桌面和文件管理，他必然是当前登录用户启动起来的。如果当前进程是system进程，比如服务，那么它还想获取当前登录用户的一些属性，比如现在要讲的%userprofile%目录，那么就需要通过获取explorer.exe进程的token来实现。

Windows提取环境变量

希望能帮助大家，希望大家多多支持，你们的支持是我前进的动力。

08-10

1650

每个进程都有一个与它关联的环境块，这是在进程地址空间内分配的一块内存。每个字符串的第一部分是一个环境变量的名称，后跟一个等号，等号之后是希望赋给此变量的值，注意：除了第一个=::=::\字符串，块中可能还有其他字符串是以（=）开头的。这种字符串不能作为环境变量的使用。调用GetEnvironmentStrings函数来获取完整的环境块。...

windows系统信息获取

生活需要深度

02-14

309

记得刚学习python的时候是在系统属性--->高级--->环境变量--->系统变量(让电脑的所有用户都能在cmd窗口使用python)--->Path里面增加C:\Python27、C:\Python27\Scripts两个路径。常用系统变量：%ProgramFiles% %SystemRoot% %SystemDrive% %Path%使用set命令可以输出所有环境变量值，set + ProgramFiles(变量名前后都不用加%)输出某个环境变量的值。

DOS命令添加, 删除, 查询系统环境变量(永久/临时生效)