Форум программистов [Powered by Invision Power Board]

Код

'==========================================================================  
'  
' Function MapDrv(DrvLet, UNCPath)  
'  
' DrvLet -  Буква устройства  
' UNCPath - Сетевой путь  
'  
' COMMENT: Подключение сетевых дисков с записью ошибок в EventLog  
'  
'==========================================================================  
  
  
Function MapDrv(DrvLet, UNCPath)  
  
    Dim WshNetwork,objFSO          ' Object variable  
    Dim Msg  
  
    Set WshNetwork = WScript.CreateObject("WScript.Network")  
    Set objFSO = CreateObject("Scripting.FileSystemObject") 
  
    On Error Resume Next  
 
    If objFSO.DriveExists(DrvLet) Then  
        WshNetwork.RemoveNetworkDrive DrvLet  
    End If 
 
    WshNetwork.MapNetworkDrive DrvLet, UNCPath  
      
    Select Case Err.Number  
        Case 0            ' No error  
  
        Case -2147023694   
            WshNetwork.RemoveNetworkDrive DrvLet  
            WshNetwork.MapNetworkDrive DrvLet, UNCPath  
               
        Case -2147024811   
            WshNetwork.RemoveNetworkDrive DrvLet  
            WshNetwork.MapNetworkDrive DrvLet, UNCPath  
  
        Case Else  
  
            Msg = "Mapping network drive error: " & _   
                   CStr(Err.Number) & " 0x" & Hex(Err.Number) & vbCrLf & _  
                  "Error description: " & Err.Description & vbCrLf  
            Msg = Msg & "Domain: " & WshNetwork.UserDomain & vbCrLf  
            Msg = Msg & "Computer Name: " & WshNetwork.ComputerName & vbCrLf  
            Msg = Msg & "User Name: " & WshNetwork.UserName & vbCrLf & vbCrLf  
            Msg = Msg & "Device name: " & DrvLet & vbCrLf  
            Msg = Msg & "Map path: " & UNCPath   
  
            WshShell.LogEvent 1, Msg, "\\SRV" 
    End Select  
End Function