VBS设置系统的环境变量

最新推荐文章于 2021-10-17 11:14:25 发布

xiciliu

最新推荐文章于 2021-10-17 11:14:25 发布

阅读量6.1k

点赞数 2

本文链接：https://blog.csdn.net/xiciliu/article/details/8845324

版权

程序实现的是系统环境变量设置，更改Enviroment为user可设置用户变量。

Dim currentpath
currentpath=createobject("Scripting.FileSystemObject").GetFolder(".").Path
MsgBox currentpath

Dim ocrpath
ocrpath=currentpath&"\Tesseract-OCR"

SetTheEnv(ocrpath)

Function SetTheEnv(ocrpath)
	Dim pSysEnv
	Set pSysEnv = CreateObject("WScript.Shell").Environment("System")  
	pSysEnv("TESSDATA_PREFIX")=ocrpath&"\"
	
	Dim ExistValue
	ExistValue=pSysEnv("path")
	Dim target,s,exist,appendvalue
	exist=False
	appendvalue=ocrpath&";"&ocrpath&"\training"
	ExistValue=ExistValue&";"&appendvalue
	ExistValue=reduce(ExistValue,False,";")
	target=split(ExistValue,";")
	ExistValue=""
	For Each s In target
		If s<>"" Then
		ExistValue=ExistValue&s&";"
		End If
	Next
	pSysEnv("path")=ExistValue
	'ExistValue=pSysEnv("wdir")
	'MsgBox("WDIR="&ExistValue)
	MsgBox "环境设置成功!"
End Function
Function reduce(srcstr,casesentive,sp)
	Dim objDict,x,y
	srcarr=split(Trim(srcstr),sp)
	Set objDict=createobject("Scripting.Dictionary")
	For Each x In srcArr
		If Not casesentive Then 
			y=LCase(x)
		Else
			y=x
		End If
		If Not objDict.Exists(y) Then 
			If y<>lcase(driverLetter)&"\" Then
				objDict.Add y,x
			End If
		End If
	Next
	reduce=Join(objDict.Items,sp)
	Set objDict=Nothing
End Function