setting environmental variables logon script

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

setting environmental variables logon script

Logged in as: Guest

arrSession:exec spGetSession 2,2,60258

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> setting environmental variables logon script
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

setting environmental variables logon script - 5/15/2008 7:39:40 AM

mtyn

Posts: 4
Score: 0
Joined: 5/15/2008
Status: offline

Hi all, first time poster so go easy on me!
What I am trying to accomplish is a logon script that does two things.
One being to set and environmental variable of %fullname% containing the users first and last name.
after that the script goes on to auto setup outlook based on a prf file.

The outlook part works fine however the environmental variable is what gives me issues.
(note, I havent programed since highschool C++, i can follow but i cant make it up)
this code is mashed together from bits ive found

the scipt then goes on to run the outlook setup.

here is the rub, when i run this as a logon script it does not work. The variable does not set but the outlook setup runs. but if i run the script manually as a user it works perfectly!
im not quite sure why

entire code posted below for refrence

Set objSysInfo = CreateObject("ADSystemInfo")
strName = objSysInfo.UserName

arrUserName = Split(strName, ",")
arrOU = Split(arrUserName(0), "=")
strComputerOU = arrOU(1)

SetVar_Volatile "fullname","value"

Sub SetVar_Volatile(VarName,VarValue)
set shell = createobject("wscript.shell")
set envVolatile = shell.environment("volatile")
envVolatile(VarName) = arrOU(1)
End Sub

Company = "LPA"          ' SET THE NAME OF YOUR COMPANY
PRFLocation = "\\lpa.local\SysVol\lpa.local\Policies\{E9BEA589-BCBC-4640-A0FF-7D868AF7DC66}\User\Scripts\Logon\LPA.prf"         ' SET THE LOCATION ON THE NETWORK OR LOCAL DRIVE 
'PRFLocation = "\\SERVER\share\test.prf" ' OF THE PRF THAT HAS BEEN CREATE
ProfileName = "LPA"   ' This is the name that you have already
     ' created when you made the PRF.  
     ' make sure they are the same
' =========================================

' =================DO NOT EDIT ANYTHING BELOW THIS SECTION================
' ========================================================================

Set WshShell = CreateObject("WScript.Shell")
Set WshNetwork = Wscript.CreateObject("Wscript.Network")
Set fso = CreateObject("Scripting.FileSystemObject")
Set ObjEnv = WshShell.Environment("Process")
Set objShell = CreateObject("Shell.Application")
Set objSysInfo = CreateObject("ADSystemInfo")
Set objUser = GetObject("LDAP://" & objSysInfo.UserName)

Const HKEY_CURRENT_USER = &H80000001
Dim HKCUfirstRunflag 
HKCUfirstRunflag = "HKCU\Software\" & Company & "\FirstRunFlag"
Dim HKCUprofile 
HKCUprofile = "HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\" & ProfileName

Dim WshShell, WshNetwork, objEnv, fso, objShell, username, key, FirstRunCurrentUser, MSOKey, NoProfile, OfficeInstalled, strUserName, strInitials
Dim strOfficePath, strMachineName, objSysInfo, objUser
Dim objWord, LogonSrv, PRFPath, result, OSnummer, objWMIService, colOperatingSystems, objOperatingSystem

strOfficePath = "Software\Microsoft\Office\11.0\Common\UserInfo" 'Path for office user info
strMachineName = "."

' ============== START OF MAIN SCRIPT ==============
'Check OS
' =========================================
Set objWMIService = GetObject("winmgmts:" _
   & "{impersonationLevel=impersonate}!\\" & strMachineName & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery _
   ("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
result =  objOperatingSystem.Version
OSnummer = Left(result,3)

if OSnummer <> "5.1" then
'Wscript.Echo "This is not XP"  'Debug
Wscript.Quit   
else
'Wscript.Echo OSnummer     'Debug
end if
Next
' =========================================
'Test to see if the script has run before
' ========================================= 
TestfirstRunUser  ' Has script been run before?
If FirstRunCurrentUser then 'If not then continue
TestProfile 
If NoProfile then 'Set up profile if none exists
 OutlookSetup 'Setup Outlook profile
End if
end if
' =========================================

' Add a registry key if the script runs successfully
WshShell.RegWrite HKCUfirstrunflag, "1", "REG_DWORD"

cleanup

' ================================================
' ============== END OF MAIN SCRIPT ==============
' ================================================

' -------- Test if first run for this user?
Sub TestFirstRunUser
 on error resume next 'cannot be read first time
 key = WshShell.RegRead(HKCUfirstRunflag)
 If Err <> 0 Then
   FirstRunCurrentUser = True
 Else
   FirstRunCurrentUser = False
 End If
 On Error Goto 0
End Sub

'------------ Test if profile exists?
Sub TestProfile
on error resume next 'cannot be read first time
MSOKey = WshShell.RegRead(HKCUprofile)
' determine if a profile has already been setup 
 If MSOKey = "" Then
  'wscript.echo "No Profile" 'Testing
  NoProfile = True
 else
  'wscript.echo "Profile exists" 'Testing
  NoProfile = False
 end if
 On Error Goto 0
End sub

Sub OutlookSetup
   WshShell.Run "outlook.exe /importprf " & PRFLocation, 1, False
End Sub

Sub Cleanup
Set WshNetwork = Nothing
Set objSysInfo = Nothing
Set WshShell = Nothing
Set fso = Nothing
Set ObjEnv = Nothing
Set objShell = Nothing
Set objUser = Nothing
Set objWord = Nothing
Set objWMIService = Nothing
Set colOperatingSystems = Nothing
Set objWord = Nothing 
End Sub

Post #: 1

RE: setting environmental variables logon script - 5/15/2008 8:05:02 AM

ebgreen

Posts: 5041
Score: 31
Joined: 7/12/2005
Status: offline

Try writing to HKEY_CURRENT_USER\Environment to set the environment variable.

_____________________________

"... when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick
Goog places to start:http://www.visualbasicscript.com/m_24727/tm.htm
http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to mtyn)

Post #: 2

RE: setting environmental variables logon script - 5/15/2008 12:27:04 PM

mtyn

Posts: 4
Score: 0
Joined: 5/15/2008
Status: offline

Thanks for your reply, could you possibly point me towards an example?
Im not kidding when I saw that I know next to nothing about vbscript. Im not asking for you to write it for me, but maybe just let me know what function I should be searching for information for.
Would power users (WinXP) have the rights to add strings to the reg?

Thanks!

< Message edited by mtyn -- 5/15/2008 12:32:55 PM >

(in reply to ebgreen)

Post #: 3

RE: setting environmental variables logon script - 5/15/2008 2:21:56 PM

dm_4ever

Posts: 2665
Score: 46
Joined: 6/29/2006
From: Orange County, California
Status: offline

These may help

http://techtasks.com/code/viewbookcode/444
Reference: http://msdn.microsoft.com/en-us/library/aa394143(VS.85).aspx

_____________________________

dm_4ever

My philosophy: K.I.S.S - Keep It Simple Stupid
Read Me: http://www.visualbasicscript.com/m_24727/tm.htm
Frequently Asked Stuff: http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to mtyn)

Post #: 4

RE: setting environmental variables logon script - 5/16/2008 3:58:44 AM

mtyn

Posts: 4
Score: 0
Joined: 5/15/2008
Status: offline

I had found and tried to use that script when i was researching this initially, it seems that power users do not have the authority to create the value through this method.

(in reply to dm_4ever)

Post #: 5

RE: setting environmental variables logon script - 5/18/2008 11:23:41 AM

dm_4ever

Posts: 2665
Score: 46
Joined: 6/29/2006
From: Orange County, California
Status: offline

Do a search for

WScript.Shell
RegRead
RegWrite

or

StdRegProv
SetStringValue

These should allow you to read/write from/to the registry as ebgreen suggested previously....you should be able to find example for both of these.

_____________________________

dm_4ever

My philosophy: K.I.S.S - Keep It Simple Stupid
Read Me: http://www.visualbasicscript.com/m_24727/tm.htm
Frequently Asked Stuff: http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to mtyn)

Post #: 6

RE: setting environmental variables logon script - 5/20/2008 2:30:48 AM

mtyn

Posts: 4
Score: 0
Joined: 5/15/2008
Status: offline

heres an update, i feel like im missing something pretty simple.
when i logon as a user and run this code, it creates the environmental variable and ive verified that on the command line with "set"

and then if i run this code, the profile is setup and the fullname is set properly

' =================DO NOT EDIT ANYTHING BELOW THIS SECTION================
' ========================================================================

strOfficePath = "Software\Microsoft\Office\11.0\Common\UserInfo" 'Path for office user info
strMachineName = "."

' Add a registry key if the script runs successfully
WshShell.RegWrite HKCUfirstrunflag, "1", "REG_DWORD"

cleanup

' ================================================
' ============== END OF MAIN SCRIPT ==============
' ================================================

Sub OutlookSetup
   WshShell.Run "outlook.exe /importprf " & PRFLocation, 1, False
End Sub

however if i put those two sets of code in the same file and run it it does not set the name, but rather puts %fullname% in the space, leading me to believe that the variable isnt being set. But i know that it is set.
Im guessing that when i call the vbscript it gathers the envirnmental variables and uses those while the script is running, is there a way for me to tell the script to refresh its variables?

(in reply to dm_4ever)

Post #: 7

RE: setting environmental variables logon script - 5/20/2008 3:48:56 AM

dm_4ever

Posts: 2665
Score: 46
Joined: 6/29/2006
From: Orange County, California
Status: offline

You may want to group things a bit more into their own Subs/Functions and there is no need for the "cleanup" sub.

_____________________________

dm_4ever

My philosophy: K.I.S.S - Keep It Simple Stupid
Read Me: http://www.visualbasicscript.com/m_24727/tm.htm
Frequently Asked Stuff: http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to mtyn)

Post #: 8

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> WSH & Client Side VBScript >> setting environmental variables logon script

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts