var WSH_Fso, WSH_NetWork, WSH_NetShell, sLocalDrive, sRemoteDrive, sCopyToDir, IsError, sMessage, sMaskCopy;
  
 sLocalDrive = "R:"; 
 sRemoteDrive =  "\\\\server1\\shara";
 sCopyToDir = "c:\\tmpdir\\";

  WSH_NetWork = WScript.CreateObject("WScript.NetWork");
  WSH_NetShell = WScript.CreateObject("WScript.Shell");
  WSH_Fso = WScript.CreateObject("Scripting.FileSysytemObject");

  // Переподключение диска
  // Отключение
   IsError = false;
   try
    {
      WSH_NetWork.RemoteNetworkDrive(sLocalDrive);
    }
    catch (e)
	{
		if (e!= 0 )
		{
			sMessage ="Ошибка отключения диска "+sLocalDrive+
"\nКод ошибки:"+e.number+"\nОписание: "+e.discription;
			WSH_NetShell.Popup(sMessage, 0 ,"Отключение", 64 );
		}
	}
	if (!IsError)
	{
       sMessage ="Диск "+sLocalDrive+" отключен";
	   WSH_NetShell.Popup(sMessage, 0 ,"Отключение", 64 );
	}
// Подключение
	IsError = false;
	try
	{
     WSH_NetWork.MapNetworkDrive(sLocalDrive,sRemoteDrive);
	}
	catch (e)
	{
		if (e!= 0 )
		{
		  IsError = true;	
		  sMessage ="Ошибка подключения диска "+sLocalDrive+ "к "+sRemoteDrive +
			  "\nКод ошибки:"+e.number+"\nОписание: "+e.discription;
		  WSH_NetShell.Popup(sMessage, 0 ,"Подключение", 64 );
		}
	}
// Диск подключен можно копировать
	if(!IsError)
	{
      sMaskCopy = sLocalDrive+"\\*"; // Все файлы
	  WSH_Fso.CopyFolder (sMaskCopy,  sCopyToDir);
	}