04-26-2012, 12:08 AM
Quick-and-dirty alternate method using Windows environment variables:
Archens
Code:
Sub SetSysEnv(strSysEnvVar,strValue)
Set WshShell = CreateObject("WScript.Shell")
Set WshSysEnv = WshShell.Environment("SYSTEM")
WshSysEnv(strSysEnvVar) = strValue
Set WshShell = Nothing
Set WshSysEnv = Nothing
End Sub
Function GetSysEnv(strSysEnvVar)
Set WshShell = CreateObject("WScript.Shell")
Set WshSysEnv = WshShell.Environment("SYSTEM")
GetSysEnv = WshSysEnv(strSysEnvVar)
Set WshShell = Nothing
Set WshSysEnv = Nothing
End Function
Archens