VB Scripting help using varible %username%

I am in the process of setting up a test domain Win Svr 2003 and ran across this vbs script I really like from ( http://lazynetworkadmin.com/content/view/7/6/ ). I have the script mapping drives with no problems, but it will not work with the variable %username% in the csv file. I am just beginning my adventure in scripting so this is beyond my ability. Any help would be greatly appreciated.

Also how do you most admin's map drives and printer, I'm interested to see how everyone else does this task.

----------COPY EVERYTHING BELOW THIS LINE----------
On Error Resume Next
 
Dim GroupList
Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")
Set WshNetwork = WScript.CreateObject("WScript.Network")
 
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) <> 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 
----------COPY EVERYTHING ABOVE THIS LINE----------
 
 Then make yourself a GroupList.csv file and follow this format:
 
----------CSV FILE CONTENTS----------
Domain Users,F:,\\optimus-prime\data\users\%username%
----------CSV FILE CONTENTS----------

Select allOpen in new window