home drive

I m using a script to create multiple home drives on a particular path on one server. I need to modify this script so that I can create home drives on another path on a different server. I think I have done most of the required modifictions..but I don't understand the below part of the script...can somebody help me  to understand this part of script please..

Note : the script takes a .txt file of usernames to create the home drive.

if (mid(INtfile,2,1) = ":" or left(IntFile,2) = "\\") then 
 Const ForReading = 1
' Set file for dictionary
Set objFile = objFSO.OpenTextFile (intfile, ForReading)
i = 0
Do Until objFile.AtEndOfStream
strNextLine = objFile.Readline
If strNextLine <> "" Then
objDictionary.Add i, strNextLine
End If
i = i + 1
Loop
objFile.Close
else
objDictionary.Add 0, INtfile
End If
For Each strLine in objDictionary.Items
userfolder = "G:\" & Left(strLine,1) & "\" & strLine
'Creating Folders
set objfso = CreateObject ("Scripting.FilesystemObject")
If objfso.FolderExists (userfolder) Then
'wscript.echo ("Did not create " & strline)
Else
Set objfso = CreateObject("scripting.FileSystemObject")
Set objfolder = objfso.CreateFolder(userfolder)
'wscript.echo ("I Did create " & strline)
End If

thank you!!!