ALTERAR INFORMACOES DO PC VIA VB.NET

Citação:

:
BETOPSY,

Por favor, veja esse exemplo:
====================================
Obtendo informações do sistema
http://www.macoratti.net/vbn_sifo.htm
====================================

[][ô]s,
Tunusat.

Citação:

SaveSetting - Salva ou cria um entrada da aplicação no registro do Sistema.. A sintaxe é :

Public Sub SaveSetting( ByVal AppName As String, ByVal Section As String, ByVal Key As String, ByVal Setting As String)

Citação:

Salva ou cria uma entrada de aplicativo no Registro do Windows.

O recurso My dá a você maior produtividade e desempenho em registro de operações que SaveSetting. Para obter mais informações, consulte Objeto My.Computador.Registro.

Citação:

Retorna um valor de configuração da chave de entrada do aplicativo no registro do Windows.

O recurso My dá a você maior produtividade e desempenho em registro de operações que GetAllSettings. Para obter mais informações, consulte Objeto My.Computador.Registro.

Private Sub cmd_Exit_Click()
[ô](1) salva as configuracoes
[ô](2) informa o local aonde salvar as configuracoes
[ô](3) seção onde os valores serão salvos
[ô](4) sub-seção onde os valores serão salvos
[ô](5) os valores que desejamos salvar
[ô]     (1)           (2)        (3)        (4)              (5)
    SaveSetting App.EXEName, [Ô]Padrao[Ô], [Ô]MeuHeight[Ô], Me.Height
    SaveSetting App.EXEName, [Ô]Padrao[Ô], [Ô]MeuWidth[Ô], Me.Width
    SaveSetting App.EXEName, [Ô]Padrao[Ô], [Ô]MeuTop[Ô], Me.Top
    SaveSetting App.EXEName, [Ô]Padrao[Ô], [Ô]MeuLeft[Ô], Me.Left
End
End Sub

[ô]Coloque isso num módulo
Declare Auto Function SetComputerName Lib [Ô]kernel32[Ô] (ByVal lpComputerName As String) As Integer

SetComputerName(Text1.Text)

    [ô]1ª Forma
    Private Declare Auto Function SetComputerName Lib [Ô]kernel32.dll[Ô] (ByVal lpComputerName As String) As Boolean

    [ô]Função para testar as duas formas...
    Private Sub btnGravarInformacoesDoSistema_Click(sender As Object, e As EventArgs) Handles btnGravarInformacoesDoSistema.Click
        [ô]2ª Forma
        Try

            Dim myPath As New ManagementPath
            myPath.Server = System.Net.Dns.GetHostName
            myPath.NamespacePath = [Ô]root\CIMV2[Ô]
            myPath.RelativePath = [Ô]Win32_Computersystem.Name=[ô][Ô] & myPath.Server & [Ô][ô][Ô]

            Dim myObj As New ManagementObject(myPath)
            Dim myParams() As Object = {txtNomeDaMaquina.Text}
            myObj.InvokeMethod([Ô]Rename[Ô], myParams)
        Catch ex As Exception
            MessageBox.Show([Ô]Não é possível definir o nome do computador![Ô])
        End Try

        [ô]1ª Forma - desta forma junto com o [Ô]Private Declare acima[Ô]
        Dim Success As Boolean = SetComputerName(txtNomeDaMaquina.Text)
    End Sub

Citação:

:
BETOPSY,

Tem razão, deste jeito não funciona. é Read-Only ... viajei feio...!
Mas olha ... descobri mais duas formas, mas acho que nas duas tem que botar a máquina e eu não posso bootar a minha agora ... se quiser testar:

    [ô]1ª Forma
    Private Declare Auto Function SetComputerName Lib [Ô]kernel32.dll[Ô] (ByVal lpComputerName As String) As Boolean

    [ô]Função para testar as duas formas...
    Private Sub btnGravarInformacoesDoSistema_Click(sender As Object, e As EventArgs) Handles btnGravarInformacoesDoSistema.Click
        [ô]2ª Forma
        Try

            Dim myPath As New ManagementPath
            myPath.Server = System.Net.Dns.GetHostName
            myPath.NamespacePath = [Ô]rootCIMV2[Ô]
            myPath.RelativePath = [Ô]Win32_Computersystem.Name=[ô][Ô] & myPath.Server & [Ô][ô][Ô]

            Dim myObj As New ManagementObject(myPath)
            Dim myParams() As Object = {txtNomeDaMaquina.Text}
            myObj.InvokeMethod([Ô]Rename[Ô], myParams)
        Catch ex As Exception
            MessageBox.Show([Ô]Não é possível definir o nome do computador![Ô])
        End Try

        [ô]1ª Forma - desta forma junto com o [Ô]Private Declare acima[Ô]
        Dim Success As Boolean = SetComputerName(txtNomeDaMaquina.Text)
    End Sub

[][ô]s,
Tunusat.

Citação:

:
Não creio que você vá conseguir fazer isso. Veja bem, informações desse tipo são sempre muito bem protegidas pelo sistema. Se não fossem, qualquer malware poderia modificar informações de conexão e arquivo hosts, causando um estrago feio para o usuário. Mas qual seria o objetivo disso? Não consigo imaginar uma situação onde isso seja necessário, à não ser para construção de um malware, mas quero acreditar que não é isso que você está fazendo...

Citação:

:
Só para constar, se você criar seu próprio servidor DHCP e apontar a máquina do cliente para ele, você poderia fazer isso que você quer.