Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
I think the problem is this part: RegistryKey.OpenRemoteBase
Dim text As String = txtFile.Text If text <> "" Then Try Dim str2 As String = File.OpenText(text).ReadLine Dim reader2 As New StreamReader(text) Do While Not reader2.EndOfStream str2 = reader2.ReadLine Dim num As Integer = Strings.InStr(str2, ",", CompareMethod.Binary) Dim str3 As String = Strings.Left(str2, (num - 1)) Dim str4 As String = Strings.Right(str2, (Strings.Len(str2) - num)) MsgBox(str3) Dim regkey As Microsoft.Win32.RegistryKey = RegistryKey.OpenRemoteBaseKey(Microsoft.Win32.RegistryHive.LocalMachine, str3) regkey.OpenSubKey("SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", True) regkey.SetValue("DefaultPassword", str4, Microsoft.Win32.RegistryValueKind.String) Loop Catch ex As Exception MsgBox(ex.Message) End Try End If
Join the community of 500,000 technology professionals and ask your questions.