Я написал маленький скрипт, который подключается по WMI к удаленному компьютеру и получает последовательно имя каждой шары. Я хочу изменить права доступа к этой шаре. Как это сделать?
Поскольку пока только начинаю программировать на вижуал бэйские, может подскажите чего, вот скрипт исходный:
- Код: Выделить всё
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set LogFile = objFSO.OpenTextFile("test.log", 8, True)
Set objWMIService = GetObject("winmgmts://mycomp").InstancesOf("Win32_Share")
If Err.Number <> 0 Then
LogFile.WriteLine(Err.description)
End If
For Each whemObject In objWMIService
WScript.Echo whemObject.Name & ": " & whemObject.Name
Next