FogFromDark
Newbie | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Уважаемые,
При использовании несколько модифицированного скрипта SergeyCVS мапящего диски и переименовывающего их:
Цитата: [/q]
' COMMENT: Подключение сетевых дисков с записью ошибок в EventLog
Option Explicit
On Error Resume Next
Dim WshShell, WshNetwork, objShell ' , objFSO
Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshNetwork = WScript.CreateObject("WScript.Network")
'Set objFSO = CreateObject( "Scripting.FileSystemObject" )
'objFSO.DeleteFolder( "C:\Program Files\Common Files\Symantec Shared\VirusDefs\tmp*" )
' Задаем имя файлового сервера, при использовании нескольких серверов
' создаем несколько констант и используем их при вызове MapDrv
Const FileSrv1 = "\\SRV1"
'Const FileSrv2 = "\\SRV2"
MapDrv "G:",FileSrv1 & "\folder1", "Общие папки"
MapDrv "W:",FileSrv1 & "\folder2" , "Специализированные папки"
MapDrv "Y:",FileSrv1 & "\folder3", "Папки департаментов"
'==========================================================================
'
' Function MapDrv(DrvLet, UNCPath)
'
' DrvLet - Буква устройства
' UNCPath - Сетевой путь
'
'==========================================================================
Function MapDrv(DrvLet, UNCPath, DrvName)
Dim objFSO, oShell ' Object variable
Dim Msg
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set oShell = CreateObject("Shell.Application")
On Error Resume Next
If objFSO.DriveExists(DrvLet) Then
WshNetwork.RemoveNetworkDrive DrvLet, true, true
End If
WshNetwork.MapNetworkDrive DrvLet, UNCPath
oShell.NameSpace(DrvLet & "\").Self.Name = DrvName
Select Case Err.Number
Case 0 ' No error
Case -2147023694
WshNetwork.RemoveNetworkDrive DrvLet, true, true
WshNetwork.MapNetworkDrive DrvLet, UNCPath
oShell.NameSpace(DrvLet).Self.Name = DrvName
Case -2147024811
WshNetwork.RemoveNetworkDrive DrvLet, true, true
WshNetwork.MapNetworkDrive DrvLet, UNCPath
oShell.NameSpace(DrvLet).Self.Name = DrvName
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, "."
End Select
End Function
Цитата:
в логах пишет следующее:
Цитата:
Mapping network drive error: 424 0x1A8
Error description: Object required
Domain: MSK
Computer Name: User
User Name: Username
Device name: Y:
Map path: \\srv1\folder1
[q] |
Хотя переименование срабатывает, а вот логгирование ошибо подключения - нет. В чем могут быть грабли?
|
