Visual Basic.NET - Installer1 que no funciona en el Setup y evita que sea copiado de una compu a otra

Imports System

Imports System.ComponentModel

Imports System.Configuration.Install

Imports System.Collections.Generic

Imports System.IO

Imports System.Management

Public Class Installer1

    Public NS2 As String

    Public X_msg As String

    Public x_len As String

    Public X As Integer

    Dim LIC_SIS_OPE As String

    Dim LIC_SIS_OPE_CODE As String

     Private Declare Function GetWindowsDirectory Lib "kernel32.dll" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

     Public Sub New()

        MyBase.New()

        InitializeComponent()

    End Sub

     Public Overrides Sub Commit(ByVal savedState As System.Collections.IDictionary)

        MyBase.Commit(savedState)

        Dim targetDir = Context.Parameters("TARGETDIR")

        Dim SerialNumber = Context.Parameters("SERIALNUMBER")

        Dim companyname = Context.Parameters("COMPANYNAME")

        Dim username = Context.Parameters("USERNAME")

        Dim DRV_INS = Context.Parameters("SOURCEDIR")

        Dim Prog_Files As String = System.Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles)

        Dim DRV_INS_X As String

        Dim LIC_INDUST As String

        Dim fileWriter As System.IO.StreamWriter

        Dim NVA_LIC As String '

         NS2 = ""

        Get_HDD_SerialNumber()

        NVA_LIC = NS2

        LIC_INDUST = UCase((SerialNumber))

        DRV_INS_X = DRV_INS.ToString

        fileWriter = My.Computer.FileSystem.OpenTextFileWriter(targetDir & "Ind.ini", False)

        fileWriter.WriteLine("[PROD_ID]=" & "IND2019")

        fileWriter.WriteLine("[FEC_INS]=" & Format(Date.Now, "dd/MM/yyyy"))

        fileWriter.WriteLine("[HOR_INS]=" & Format(TimeOfDay, "HH:mm") & " HRS")

        fileWriter.WriteLine("[DRV_INS]=" & DRV_INS_X)

        fileWriter.WriteLine("[EMPRESA]=" & companyname)

        fileWriter.WriteLine("[USUARIO]=" & username)

        fileWriter.WriteLine("[SIS_OPE]=" & LIC_SIS_OPE)

        fileWriter.WriteLine("[DIR_SIS]=" & targetDir)

        fileWriter.WriteLine("[NUM_SER]=" & UCase(SerialNumber))

        fileWriter.WriteLine("[COD_LIC]=" & NVA_LIC)

        fileWriter.Close()

        Dim Val As String

        MkDir(Mid(targetDir, 1, 3) & "\WinPrtCtl")

        SetAttr(Mid(targetDir, 1, 3) & "\WinPrtCtl", vbHidden)

        fileWriter = My.Computer.FileSystem.OpenTextFileWriter(targetDir & "WinBack.sys", False)

        fileWriter.WriteLine("[Driver]=")

        fileWriter.WriteLine("SystemLocator=C:\Windows\win.ini")

        fileWriter.WriteLine("SystemControl=" & "N0"

        fileWriter.WriteLine("SystemDate=" & Format(Date.Now, "dd/MM/yyyy") & "")

        fileWriter.Close()

        fileWriter = My.Computer.FileSystem.OpenTextFileWriter(Mid(targetDir, 1, 3) & "\WinPrtCtl\WinStsL9.sys", False)

        fileWriter.WriteLine("[Driver]=")

        fileWriter.WriteLine("SystemLocator=C:\Windows\win.ini")

        fileWriter.WriteLine("SystemControl=" & "N0")

        fileWriter.WriteLine("SystemDate=" & Format(Date.Now, "dd/MM/yyyy") & "")

        fileWriter.Close()

    End Sub

    Dim WindowsApplication1 As System.STAThreadAttribute()

    Private Sub Get_HDD_SerialNumber()

        Dim hdCollection As New ArrayList()

        Dim searcher As New ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")

        Dim wmi_HD As New ManagementObject()

        Dim searcher1 As New ManagementObjectSearcher("SELECT * FROM Win32_Processor") '

        Dim i As Integer = 0

        Dim Proc_ID As String = ""

        On Error Resume Next

        LIC_SIS_OPE_CODE = Environment.OSVersion.Version.Major.ToString & Environment.OSVersion.Version.Minor.ToString

        Select Case LIC_SIS_OPE_CODE

              Case "60"

                LIC_SIS_OPE = "WINDOWS VISTA / WINDOWS 2008 SERVER"

            Case Else

                LIC_SIS_OPE = "WINDOWS 7/8"

                LIC_SIS_OPE_CODE = "62"

        End Select

        Dim OPSystem = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "CurrentVersion", Nothing)

        Dim OPProductName = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "ProductName", Nothing)

        Select Case OPSystem

            Case "10.0"

                LIC_SIS_OPE = OPProductName '"Windows 10 / Windows Server 2016"

                LIC_SIS_OPE_CODE = "10.0"

            Case "6.3"

                If InStr(OPProductName, "Windows 10") > 0 Or InStr(OPProductName, "Windows Server 2016") > 0 Then

                    LIC_SIS_OPE = OPProductName '"Windows 10 / Windows Server 2016"

                    LIC_SIS_OPE_CODE = "10.0"

                Else

                    LIC_SIS_OPE = OPProductName '"Windows 8.1 / Windows Server 2012 R2"

                    LIC_SIS_OPE_CODE = "6.3"

                End If

            Case "6.2"

                LIC_SIS_OPE = OPProductName '"Windows 8 / Windows Server 2012"

                LIC_SIS_OPE_CODE = "6.2"

            Case "6.1"

                LIC_SIS_OPE = OPProductName '"Windows 7 / Windows Server 2008 R2"

                LIC_SIS_OPE_CODE = "6.1"

            Case "6.0"

                LIC_SIS_OPE = OPProductName '"Windows Vista / Windows Server 2008"

                LIC_SIS_OPE_CODE = "6.0"

       End Select

         For Each wmi_HD In searcher.Get

            If wmi_HD("InterfaceType").ToString() <> "USB" Then

                Dim hd As New HardDrive()

                hd.Model = wmi_HD("Model").ToString()

                hd.Type = wmi_HD("InterfaceType").ToString()

                hd.Size = wmi_HD("Size").ToString()

                hd.Systemname = wmi_HD("Systemname").ToString()

                hdCollection.Add(hd)

                Exit For

            End If

        Next

         For Each wmi_HD In searcher1.Get()

            If wmi_HD("InterfaceType").ToString() <> "USB" Then

                '// get the hard drive from collection using index

                Proc_ID = wmi_HD("ProcessorId")

                Dim hd As HardDrive

                hd = hdCollection(i)

                NS2 = "SYS:" & Trim(hd.Systemname) & "|" &

                       "SO:" & Trim(LIC_SIS_OPE_CODE) & "|" &

                       "MOD:" & Trim(hd.Model) & "|" &

                       "SN:" & Proc_ID & "|" &

                       "CAP:" & Trim(hd.Size)

                Exit For

            End If

        Next

    End Sub

    Public Function GetTheWindowsDirectory() As String

        Dim strWindowsDir As String        ' Variable to return the path of Windows Directory   

        Dim lngWindowsDirLength As Long    ' Variable to return the the lenght of the path       

        MsgBox("get win dir")

        strWindowsDir = Space(250)         ' Initilize the buffer to receive the string  

        lngWindowsDirLength = GetWindowsDirectory(strWindowsDir, 250) ' Read the path of the windows directory  

        strWindowsDir = Microsoft.VisualBasic.Left(strWindowsDir, lngWindowsDirLength) ' Extract the windows path from the buffer       

        GetTheWindowsDirectory = strWindowsDir

    End Function

Public Class HardDrive

    Private dsk_model As String

    Private dsk_type As String

    Private dsk_SerialNo As String

    Private dsk_Size As String

    Private dsk_Systemname As String

    Public Property Model() As String

        Get

            Return dsk_model

        End Get

        Set(ByVal value As String)

            dsk_model = value

        End Set

    End Property

    Public Property Type() As String

        Get

            Return dsk_type

        End Get

        Set(ByVal value As String)

            dsk_type = value

        End Set

    End Property

    Public Property SerialNo() As String

        Get

            Return dsk_SerialNo

        End Get

        Set(ByVal value As String)

            dsk_SerialNo = value

        End Set

    End Property

    Public Property Size() As String

        Get

            Return dsk_Size

        End Get

        Set(ByVal value As String)

            dsk_Size = Str(Format(value / 1024 / 1024 / 1024, "###,##0")) & " Gb"

        End Set

    End Property

    Public Property Systemname() As String

        Get

            Return dsk_Systemname

        End Get

        Set(ByVal value As String)

            dsk_Systemname = value

        End Set

    End Property

End Class