VBS: как сделать net share? #19687

Не нашел в инете приличной документации по WSH & vbs. Собственно нужно дать шару аналогично команде shell (net share). Нашел только MapNetworkDrive, но это не то... Кто-нибудь знает как расшарить сетевой ресурс?

Да и еще в сети был сайт, с примерами на vbs применительно к 1с (бэкап, автообмен, еще что-то), если у кого есть ссылка, поделитесь...

************************************************* ' File:    MapDrives.vbs (WSH sample in VBScript) ' Author:  (c) G. Born ' ' Mapping network drives and listing them in a ' dialog box '************************************************* Option Explicit Const machine = "\Wien" Dim Text, Title, i Dim WshNetwork, oDrives         ' Object variable Text = "Drive mapping" & vbCrLf & vbCrLf Title = "WSH sample - by G. Born" ' Create a new WshNetwork object to access Network properties. Set WshNetwork = WScript.CreateObject("WScript.Network") ' Map some drives. On Error Resume Next WshNetwork.MapNetworkDrive "X:", machine & "C" ErrCheck Err.Number WshNetwork.MapNetworkDrive "Y:", machine & "D" ErrCheck Err.Number WshNetwork.MapNetworkDrive "Z:", machine & "E" ErrCheck Err.Number ' Get collection from EnumNetworkDrives property. Set oDrives = WshNetwork.EnumNetworkDrives For i = 0 To oDrives.Count - 1 Step 2    If oDrives(i) <> " " Then        Text = Text & oDrives(i) & "   " & oDrives(i+1) & vbCrLf    End If Next MsgBox Text, vbOKOnly + vbInformation, Title '################### ' Show error. Sub ErrCheck(nr)    Select Case nr        Case 0            ' No error        Case -2147024829            WScript.Echo "Error: Network resource doesn't exist"        Case -2147024811            WScript.Echo "Error: Drive already mapped"        Case Else            WScript.Echo "Error: " & CStr(nr)    End Select End Sub

Можно программно создать файл, в котором прописать net share потом при помощи WSH запустить это файл как скрипт. пальцем в небо конечно...

Мне не нужно "Mapping network drives and listing them". Это я умею :) так тоже не пойдет, хочется красиво :))

2Дай мыло, я тебе покажу обработку красявую :)

'************************************************ Option Explicit Dim WshShell Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.Run "net share 123=C: mp", 1

Жду. Неужели без вызова shell никак нельзя?

Спасибо за обработку, но она тоже использует MapNetworkDrive, а мне хотелось бы дать шару без мапирования...

Вот пример из МСДН Dim oShell Set oShell = WScript.CreateObject ("WSCript.shell") oShell.run "cmd /K CD C: & Dir" Set oShell = Nothing

гыыыыы Процедура Сформировать    Перем ШЕЛЛ;        ШЕЛЛ = СоздатьОбъект("WSCript.shell");    ШЕЛЛ.run("net share temp=c: emp");    ШЕЛЛ = ""; КонецПроцедуры // Сформировать

упссс однако я оказался не оригинален

Ну это понятно, я думал можно по другому, что ж жаль...

И все-таки up, может остались еще спецы по wsh...