他のＰＣで作成したソリューションを自分のＰＣに移動して使えない

Imports EnvDTE
Imports System.Diagnostics
Imports Microsoft.VisualBasic

Public Module Module1
    Sub MakeVirtualDirectory()
        ' 参考 http://www.users.gr.jp/ml/archive/windows/5727.asp
        Dim svr As Object = GetObject("IIS://localhost/W3SVC/1/Root")
        Dim o As Object
        Dim prj As String = DTE.ActiveSolutionProjects(0).Name
        Try
            o = svr.Create("IIsWebVirtualDir", prj)
        Catch
            svr.Delete("IIsWebVirtualDir", prj)
            System.Windows.Forms.MessageBox.Show(prj + "を削除しました")
            Exit Sub
        End Try
        o.Path = "C:\Inetpub\wwwroot\" + prj
        If Not System.IO.Directory.Exists(o.Path) Then
            System.IO.Directory.CreateDirectory(o.Path)
        End If
        o.AccessRead = True
        o.AccessWrite = False
        o.AccessScript = True
        o.EnableDefaultDoc = True
        o.Defaultdoc = "default.aspx"
        o.EnableDirBrowsing = False
        o.AppCreate(True)
        o.AppFriendlyName = prj
        o.SetInfo()
        svr = Nothing
        o = Nothing
        System.Windows.Forms.MessageBox.Show("仮想ディレクトリ" + prj + "を作成しました")
    End Sub
End Module