Imports System.Management
Imports System
Imports Microsoft.VisualBasic
Imports System.IO
Imports System.Security.Permissions
Imports Microsoft.Win32
Public Class cobalagi
Private Sub btn_disable_Click(sender As System.Object, e As System.EventArgs) Handles btn_disable.Click
Dim options As ConnectionOptions
options = New ConnectionOptions()
options.Impersonation = ImpersonationLevel.Impersonate
options.Username = txt_username.Text
options.Password = txt_password.Text

Dim scope As ManagementScope

scope = New ManagementScope("\\" & txt_userPC.Text & "\root\cimv2", options)
scope.Options.EnablePrivileges = True
scope.Connect()
If scope.IsConnected = True Then
MsgBox("CONNECTED")
End If

Try
Dim environmentKey As RegistryKey
environmentKey = RegistryKey.OpenRemoteBaseKey(RegistryHive.CurrentUser, _
txt_userPC.Text).OpenSubKey("SYSTEM\CurrentControlSet\services\USBSTOR", True)
environmentKey. SetValue ("Start", 4)
environmentKey.Close()
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
End Class