VB Script How do I add the ability to use %username% in the .cvs file

Use
strUserName = WshShell.ExpandEnvironmentStrings("%UserName%")
strLogonServer=WshShell.ExpandEnvironmentStrings("%LogonServer%")

So how would I intgragrate it inot the code.
I want to be able to use ("%UserName%") or ("%LogonServer%") instead of the full name if I want to and use the full name if I want to.
Would you send back a copy of my script with your changes put into it?
Peter

I don't understand your question.
The above statements will get the environment variables you're looking for, however you reference to WshNetwork.UserName will retrieve the same thing.

Where are you wanting to use this?

HI,
 
Read the code.
I take the commands from a file called "logonpath&"\Grouplist.csv"
In that file the format is;
group,H:,\\servername\sharename
I want to be able to use Users,H:,%logonserver%\%username%$

(a veriable) instead of just using the full name of the share.
I put your lines in my code and it does not map the dirve to the share whenrun.
See the code below. Please help asap.
Peter
 

On Error Resume Next
 
Dim GroupList
Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell") 
Set WshNetwork = WScript.CreateObject("WScript.Network") 
 
strUserName = WshShell.ExpandEnvironmentStrings("%UserName%")
strLogonServer=WshShell.ExpandEnvironmentStrings("%LogonServer%")
 
 
GetGroupInfo()
 
LogonPath = fso.GetParentFolderName(WScript.ScriptFullName)
'**************************************Group Mappings Based on Grouplist.csv*********************************
If fso.FileExists(logonpath&"\Grouplist.csv") Then
   Set grplist = Fso.OpenTextFile(logonpath&"\Grouplist.csv")
   ' make File into an Array
   aGroup = Split(grplist.Readall,vbcrlf)
   For I = 0 to UBound(GroupList) ' Check Every Group Membership the user is in (populated into Grouplist)
      grpname = Grouplist(i)
      For x = 0 to UBound(aGroup) ' Read the entire CSV to make sure all drives are mapped for each Group
         mapline = agroup(x)
 
 
         If InStr(LCase(mapline),LCase(grpname)) Then ' If you're in the group
            mapline = Mid(mapline,InStr(mapline,",")+1) ' Remove the GroupName from the line
            Drive = Left(mapline,InStr(mapline,",")-1) ' Extract Drive Letter
            Path = Mid(mapline,InStr(mapline,",")+1) ' Extract the path
 
	If (fso.DriveExists(Drive)) Then ' If the drive mapping is stale,remove it
	       WshNetwork.RemoveNetworkDrive drive,true,true
               wscript.sleep 1500
	End If        
 
	If (fso.DriveExists(drive) <> True) and (Drive<>"!!") Then ' If The Drive is not already mapped        
	       WshNetwork.MapNetworkDrive drive,path,true ' Map The Drive
               wscript.sleep 1000
            End If
 
        If Drive = "!!" then
               WSHNetwork.AddWindowsPrinterConnection Path
               wscript.sleep 1000
            end if
 
         End If
      Next
   Next
End If
 
 
Sub GetGroupInfo
Set UserObj = GetObject("WinNT://" & wshNetwork.UserDomain & "/" & WshNetwork.UserName)
Set Groups = UserObj.groups
 
For Each Group In Groups
GroupCount = GroupCount + 1
Next
 
ReDim GroupList(GroupCount -1)
i = 0
For Each Group In Groups
GroupList(i) = Group.Name
i = i + 1
Next
End Sub 

Select allOpen in new window

Still don't quite understand, but take those two new variables and use them where you need them...try this:

On Error Resume Next
 
Dim GroupList
Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell") 
Set WshNetwork = WScript.CreateObject("WScript.Network") 
 
strUserName = WshShell.ExpandEnvironmentStrings("%UserName%")
strLogonServer=WshShell.ExpandEnvironmentStrings("%LogonServer%")
 
 
GetGroupInfo()
 
'LogonPath = fso.GetParentFolderName(WScript.ScriptFullName)
'**************************************Group Mappings Based on Grouplist.csv*********************************
If fso.FileExists(strLogonServer &"\Grouplist.csv") Then
   Set grplist = Fso.OpenTextFile(strLogonServer &"\Grouplist.csv")
   ' make File into an Array
   aGroup = Split(grplist.Readall,vbcrlf)
   For I = 0 to UBound(GroupList) ' Check Every Group Membership the user is in (populated into Grouplist)
      grpname = Grouplist(i)
      For x = 0 to UBound(aGroup) ' Read the entire CSV to make sure all drives are mapped for each Group
         mapline = agroup(x)
 
          If InStr(LCase(mapline),LCase(grpname)) Then ' If you're in the group
            mapline = Mid(mapline,InStr(mapline,",")+1) ' Remove the GroupName from the line
            Drive = Left(mapline,InStr(mapline,",")-1) ' Extract Drive Letter
            Path = Mid(mapline,InStr(mapline,",")+1) ' Extract the path
 
        If (fso.DriveExists(Drive)) Then ' If the drive mapping is stale,remove it
               WshNetwork.RemoveNetworkDrive drive,true,true
               wscript.sleep 1500
        End If        
 
        If (fso.DriveExists(drive) <> True) and (Drive<>"!!") Then ' If The Drive is not already mapped        
               WshNetwork.MapNetworkDrive drive,path,true ' Map The Drive
               wscript.sleep 1000
            End If
 
        If Drive = "!!" then
               WSHNetwork.AddWindowsPrinterConnection Path
               wscript.sleep 1000
            end if
 
         End If
      Next
   Next
End If
 
 
Sub GetGroupInfo
Set UserObj = GetObject("WinNT://" & wshNetwork.UserDomain & "/" & WshNetwork.UserName)
Set Groups = UserObj.groups
 
For Each Group In Groups
GroupCount = GroupCount + 1
Next
 
ReDim GroupList(GroupCount -1)
i = 0
For Each Group In Groups
GroupList(i) = Group.Name
i = i + 1
Next
End Sub 

Select allOpen in new window

Thanks, but IMO the points should be split, as SirBounty provided the original code amendment - I simply added this into your routine.  If you use Request Attention a moderator can reopen the question to allow the points to be split.

The issue is I  asked SirBounty twice to provice the information and he did not till I had to open a new issue and find someone else to fully answer the question.  I do not wish to re-open the issue. Thanks for your input.

Not sure what you mean by asking me twice - this is the only question I have been involved in of yours.
I may not have completely understood what you were after, but that doesn't mean I was neglecting the question...

I do not think you wrer neglecting the question.  I just needed it answered.
Regards
Peter