r_API(Err.LastDllError, sLocation & "\cmdApply_Click", "SetComputerNameEx")
        End If
        
    Exit Sub
    VB_Error:
    Call Error_VB(Err, sLocation & "\cmdApply_Click")
    Resume Next
    End Sub
    
    Private Sub Form_Load()
    On Error GoTo VB_Error
        
        txtComputerName.Text = ComputerName_Get
        
        If WinVersion(-1, 5000000, True) = True Then
            txtNetBIOS.Text = ComputerName_GetEx(ComputerNameNetBIOS)
            txtDNSHostname.Text = ComputerName_GetEx(ComputerNameDnsHostname)
            txtDNSDomain.Text = ComputerName_GetEx(ComputerNameDnsDomain)
            txtDNSFullyQualified.Text = ComputerName_GetEx(ComputerNameDnsFullyQualified)
            txtPhysicalNetBIOS.Text = ComputerName_GetEx(ComputerNamePhysicalNetBIOS)
            txtPhysicalDNSHostname.Text = ComputerName_GetEx(ComputerNamePhysicalDnsHostname)
            txtPhysicalDNSDomain.Text = ComputerName_GetEx(ComputerNamePhysicalDnsDomain)
            txtPhysicalDNSFullyQualified.Text = ComputerName_GetEx(ComputerNamePhysicalDnsFullyQualified)
        Else
            lblNetBIOS.Enabled = False
            txtNetBIOS.Enabled = False
            lblDNSHostname.Enabled = False
            lblDNSDomain.Enabled = False
            lblDNSFullyQualified.Enabled = False
            lblPhysicalNetBIOS.Enable