codice:
Private Sub puls1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles puls1.Click
Dim Utente
Dim Password
Dim ServerCorrente
Dim objLocator
Dim objSvc
Dim Processo
Dim intProcessID
Dim Programma
Dim Result

Utente = "local\administrator"
Password = "123456"
Programma = "C:\jinit.exe"

ServerCorrente = TextBox1.Text

objLocator = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& ServerCorrente & "\root\cimv2")

Processo = objLocator.Get("Win32_Process")
Result = Processo.Create _
(Programma, Null, Null, intProcessID)

If Result = 0 Then
MsgBox("Installazione completata")
Else
MsgBox("Installazione non completata")
End If

Result = Nothing
objLocator = Nothing
objSvc = Nothing
Processo = Nothing
End Sub
questo codice dovrebbe avviare un'installazione remota ^^ se avete suggerimenti