Database Search

TechHome

• 32 Bit Environment Extender
• Add to PATH Environment Variable
• Assigning a System Variable to a Path
• Call Function and Environment Path
• Changing the Path in WinNT
• Detecting Search Drive Mappings
• DOS Environment Variables
• Edit of an Environment Variable
• Environment Issue from PopMenu
• Environment Settings
• Environment Variables Across DOS Sessions
• EnvironmentSet UDF
• Get More Environment Space
• Get Next Available Drive Letter
• Getting the Temp Directory
• Immediate User Environment Change in NT
• List All Environment Variables
• NT Environment variables
• PATH Information
• RunEnviron and File not Found or WinExec Error
• Set System Environment Variable
• Setting the Environment in Windows 95
• Unexpected Error - Quitting - Using RunEnviron
• Win95 and environment variables
• Win95 environment after Winset
• Win95 Environment and App Spawns
• Windows Environment Variables

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

EnvironmentSet UDF

 Keywords: EnvironmentSet EnvironSet User System Environment Set Settings Variable

; ----------------------------------------------------------------------------------------------
; Set a user or system environment variable.
; The first parameter is the environment variable's name.
; The second parameter is the environment variable's value.
; Set the third parameter to @FALSE for a user variable, @TRUE for a system variable.
; Les Ferch, July 2008

#DefineFunction EnvironmentSet(Name,Value,SystemEnv)
If Name=="" Then Return @FALSE
Hive = @REGCURRENT
KeyVal = StrCat("Environment[",Name,"]")
If SystemEnv
   Hive = @REGMACHINE
   KeyVal = StrCat("System\CurrentControlSet\Control\Session Manager\Environment[",Name,"]")
EndIf
Result = RegSetExpSz(Hive,KeyVal,Value)
IntControl(59,-1,"Environment",0,0) ; Make the change immediate
Return Result
#EndFunction

; Set a user environment variable
EnvironmentSet("TestU","I'm a user variable",@FALSE)

; Set a system environment variable
EnvironmentSet("TestS","I'm a system variable",@TRUE)

Article ID:   W17861

Filename:   EnvironmentSet UDF.txt

File Created: 2010:04:15:13:55:30

Last Updated: 2010:04:15:13:55:30