peter

I want to add some custome variables on a user base to my script.
I used to do this in batch with the following command:

if %username%==user1 set %station% "wrk01"
if %username%==user2 set %station% "wrk02"

greetings,

P.

tom lavedas

if %username%==user1 set station=wrk01
if %username%==user2 set station=wrk02

But this is not a WSH related question. Better newsgroups for batch
related questions are alt.msdos.batch.nt or
microsoft.public.win2000.cmdprompt.admin

Tom Lavedas
==========
http://members.cox.net/tglbatch/wsh/

al dunbar

That was my first impression. Read his post again - that is how he has
already done it in batch (even though the code wasn't 100% correct), so I
suspect he is looking to do something similar using WSH.

Peter: give us a little more detail about your script, like what is its
primary purpose and how are is it being run.


/Al

tom lavedas

Opps. You're right, of course. I would then suggest he lookup the
Wscript.Shell object's Environment property.

tdm

One possible way :

Dim objSH
Dim objENV

Set objSH = CreateObject("WScript.Shell")
Set objENV = objSH.Environment("SYSTEM")

Select Case LCase(objSH.ExpandEnvironmentStrings("%UserName%") )
Case "user1"
objENV("station") = "wrk01"
Case "user2"
objENV("station") = "wrk02"
End Select

Not sure if this is what you really want but it may help you along.

TDM

peter

I'm setting up a login script.
The variable is used for starting up an dos program with this variable.

The following code doesn't do the trick:

Const WEEG_GROUP = "cn=Weeg"
Const PC_TIME_GROUP = "cn=PC-Time"
Const ULTIMO_GROUP = "cn=Ultimo"
Const ADMIN = "cn=administrators"

Set wshNetwork = CreateObject("WScript.Network")

Set ADSysInfo = CreateObject("ADSystemInfo")
Set CurrentUser = GetObject("LDAP://" &ADSysInfo.UserName)
strGroups = LCase(Join(CurrentUser.MemberOf))

If InStr(strGroups, WEEG_GROUP) Then

wshNetwork.MapNetworkDrive "f:","\\FS01-PROD-BLN\PRD\"

ElseIf InStr(strGroups, PC_TIME_GROUP) Then

wshNetwork.MapNetworkDrive "y:","\\172.16.16.244\atps"

ElseIf InStr(strGroups, ULTIMO_GROUP) Then

wshNetwork.MapNetworkDrive "x:","\\172.16.16.244\ultimo"

ElseIf InStr(strGroups, ADMIN) Then

wshNetwork.MapNetworkDrive "z:","\\fs02-kant-bln\c$"

End IF

Dim objSH
Dim objENV

Set objSH = CreateObject("WScript.Shell")
Set objENV = objSH.Environment("USER")


Select Case LCase(objSH.ExpandEnvironmentStrings("%UserName%") )
Case "administrator"
objENV("STATION") = "wrk01"
Case "user2"
objENV("STATION") = "wrk02"
End Select