Discussion :

[Marcello]

Bonjour

Qui peut me transformer le code suivant (vbs) en vb.net
pour le partage de répertoir??

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Const FILE_SHARE = 0
Const MAXIMUM_CONNECTIONS = 25
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & strComputer & "\root\cimv2")
Set objNewShare = objWMIService.Get("Win32_Share")
errReturn = objNewShare.Create _
    ("C:\A", "FinanceShare", FILE_SHARE, _
        MAXIMUM_CONNECTIONS, "Public share for the Finance group.")

edité par neguib pour

[Marcello]

Voila la solution :

Imports System
Imports System.Management
Imports System.Windows.Forms

Namespace WMISample

Public Class CallWMIMethod

Public Overloads Shared Function Main() As Integer

Try

Dim classInstance As New ManagementClass( _
"root\CIMV2", _
"Win32_Share", Nothing)

' Obtain [in] parameters for the method
Dim inParams As ManagementBaseObject = _
classInstance.GetMethodParameters("Create")

' Add the input parameters.
inParams("Description") = "partagé par script"
inParams("MaximumAllowed") = 25
inParams("Name") = "PartagéParScript"
inParams("Password") = """"
inParams("Path") = "c:\temp"
inParams("Type") = 0

' Execute the method and obtain the return values.
Dim outParams As ManagementBaseObject = _
classInstance.InvokeMethod("Create", inParams, Nothing)

' List outParams
Console.WriteLine("Out parameters:")
Console.WriteLine("ReturnValue: {0}", outParams("ReturnValue"))

Catch err As ManagementException

MessageBox.Show("An error occurred while trying to execute the WMI method: " & err.Message)
End Try
End Function
End Class
End Namespace

Plus qu'a remplacer les données par des variables...

A+