Client Management Suite

Yeah good one but it is not advisable to map a network drive in the msi ..

We often find it useful to map the %INST% directory (either a network drive or another folder) as the first available drive letter to reduce the character count in a command line. Here's the code to copy and paste into a blank WiseScript .WSE :
item: Remark
  Text=***   Map the installation source as the first free drive letter
end
item: Set Variable
  Variable=SP_INST
  Value=%INST%
  Flags=00010100
end
item: Set Variable
  Variable=DRIVELETTERS
  Value=GHIJKLMNOPQRSTUVWXYZ
end
item: Set Variable
  Variable=ICOUNTER
  Value=1
end
item: Set Variable
  Variable=IMAX
  Value=20
end
item: Set Variable
  Variable=DRIVE_LTR
  Value=NOTHING
end
item: If/While Statement
  Value=ICounter <= IMAX
  Flags=00011101
end
item: Set Variable
  Variable=CDRIVE
  Value=Mid$(DRIVELETTERS,iCounter,1)
  Flags=00100000
end
item: Get System Information
  Variable=DRIVETYPE
  Pathname=%CDRIVE%
  Flags=00001000
end
item: If/While Statement
  Variable=DRIVETYPE
end
item: Set Variable
  Variable=DRIVE_LTR
  Value=%CDRIVE%
end
item: Set Variable
  Variable=ICOUNTER
  Value=100
end
item: End Block
end
item: Set Variable
  Variable=ICOUNTER
  Value=%ICOUNTER%
  Flags=00000100
end
item: End Block
end
item: Remark
end
item: If/While Statement
  Variable=OS
  Value=2000
end
item: If/While Statement
  Variable=SP_INST
  Value=\\
  Flags=00000010
end
item: Execute Program
  Pathname=%SYS32%\cmd.exe
  Command Line=/c "net use %DRIVE_LTR%: %SP_INST%"
  Flags=00001010
end
item: Else Statement
end
item: Execute Program
  Pathname=subst.exe
  Command Line=%DRIVE_LTR%: %SP_INST%
  Flags=00001010
end
item: End Block
end
item: Else Statement
end
item: Parse String
  Source=%SP_INST%
  Pattern=1
  Variable1=CHECKVAL
  Variable2=JUNK
  Flags=00001100
end
item: If/While Statement
  Variable=CHECKVAL
  Value=:
  Flags=00000100
end
item: Execute Program
  Pathname=subst.exe
  Command Line=%DRIVE_LTR%: %SP_INST%\
  Flags=00001010
end
item: Else Statement
end
item: Execute Program
  Pathname=subst.exe
  Command Line=%DRIVE_LTR%: %SP_INST%
  Flags=00001010
end
item: Custom Script Item
  Filename=- NG Execute Program.wse
  Variable Name1=_NGEXE_EXE_
  Variable Value1=subst.exe
  Variable Name2=_NGEXE_WINDSIZE_
  Variable Value2=Hidden
  Variable Name3=_NGEXE_COMMENT_
  Variable Value3=Mapping installation directory as %DRIVE_LTR%:\ drive
  Variable Name4=_NGEXE_WAIT_
  Variable Value4=A
  Variable Name5=_NGEXE_CMDLINE_
  Variable Value5=%DRIVE_LTR%: %SP_INST%
  Variable Name6=_NGEXE_DEFDIR_
end
item: End Block
end
item: End Block
end

net use w: \\Server\Share

Dim objNetwork, strDrive, objShell
Dim strRemotePath, strDriveLetter, strNewName
strDriveLetter = "F:"
strRemotePath = "\\MyServer\Myfolder"
' Section to map the network drive
Set objNetwork = CreateObject("WScript.Network")
objNetwork.MapNetworkDrive strDriveLetter, strRemotePath