شبکه کردن کامپیوترها با ویژوآل بیسیک

سلام
منظورت از شبکه چیه؟ شما میتونی فولدرهایی که در کامپیوتر دیگه وجود داره و به کامپیوتر فعلی از قبل شبکه شده رو ببینی

کد:

Option Explicit
Dim strComputer
Private Sub ListShares(strComputer)
    Dim strObject
    Dim colShares
    Dim objWMIService, objShare

    Set objWMIService = GetObject("winmgmts://" & strComputer & "/root/cimv2")
    Set colShares = objWMIService.ExecQuery("Select * from Win32_Share")
    
    For Each objShare In colShares
        MsgBox objShare.Name & " [" & objShare.Path & "]"
    Next

End Sub

Private Sub Form_Load()
 
 Do
    strComputer = InputBox("Please enter name of a computer (or . for local host)", "Input")
 Loop Until strComputer <> ""
  
   ListShares (strComputer)

End Sub

این یه کد کلیه باید خودت ویرایشش کنی
نام کامپیوتر رو وارد کن مثل VBPROG

منظورم اینه با ویژوال یبرنامه رو تو کام دیگه اجرا کنم
نمیشه با برنامه پیداکردن نام کامپیوتر نامو پیداکرد بعد خود نرم افزار نام رو وارد کنه؟