ToolFix 2

user2100 · 30. Juli 2018, 15:33

Ich habe eine kleine Konsolenanwendung geschrieben und möchte gern eure Meinung dazu hören.

Name:
ToolFix 2

Beschreibung:
mit diesem Programm lassen sich ein paar informationen rund um das System anzeigen sowie ein paar weitere funktionen.

Screenshot(s):

Verwendete Programmiersprache(n) und IDE(s):
Visual Basic .NET / IDE VB 2012

Systemanforderungen:

Systemveränderungen:
Benutzerkonten , Systemdienste

Download(s):
ToolFix 2.zip

Lizenz/Weitergabe:
Freeware, OpenSource

Dos2k3 · 23. August 2018, 11:10

Tolles Programm, gefällt mir. Könntest du den SourceCode auch noch hochladen?

user2100 · 26. August 2018, 19:27

Hier der code. bei einigen funktionen bin ich mir nicht 100 Prozentig sicher ob Sie so funktionieren wie sie sollen. z.b. die windows sicherung. einfach austesten.

VB.NET-Quellcode

Module Module1
Dim str1 As String
Dim str2 As String
Dim str3 As String
Dim str4 As String
Dim str5 As String
Dim str6 As String
Dim strA As String
Dim strB As String
Dim strC As String
Dim strD As String
Dim strD1 As String
Dim strE As String
Dim strF As String
Dim strG As String
Sub Main()
hauptmenue()
End Sub
Sub hauptmenue()
Console.WriteLine(" ##########################################################################")
Console.WriteLine(" ## ToolFix 2 ##")
Console.WriteLine(" ## ##")
Console.WriteLine(" ##########################################################################")
Console.WriteLine(" ==========================================================================")
Console.WriteLine(" Hauptmenue |")
Console.WriteLine(" ==========================================================================")
Console.WriteLine(" [1] Festplattenüberprüfung |")
Console.WriteLine(" [2] Systeminformationen anzeigen |")
Console.WriteLine(" [3] Windows IP Konfiguration starten |")
Console.WriteLine(" [4] Netzwerkverbindungen anzeigen |")
Console.WriteLine(" [5] Internetverbindung überprüfen |")
Console.WriteLine(" [6] Benutzerverwaltung starten |")
Console.WriteLine(" ==========================================================================")
Console.WriteLine(" Funktionen |")
Console.WriteLine(" ==========================================================================")
Console.WriteLine(" [A] Netzwerkeinstellungen zurücksetzen |")
Console.WriteLine(" [B] Benutzer Passwort entfernen (Funktioniert nur bei lokalen Konten!!!) |")
Console.WriteLine(" [C] Windows Lizenzschlüssel anzeigen |")
Console.WriteLine(" [D] Sicherung erstellen |")
Console.WriteLine(" [E] Wiederherstellungspunkt erstellen |")
Console.WriteLine(" [F] Windows Updates aktivieren / deaktiviren |")
Console.WriteLine(" [G] Administrator Konto aktivieren / deaktivieren |")
Console.WriteLine(" ==========================================================================")
Console.Write(" Wählen Sie eine Option aus (1-6) oder (A-G) : ")
Try
str1 = Console.ReadLine()
Select Case str1
Case "1"
Console.Clear()
op1()
Case "2"
Console.Clear()
op2()
Case "3"
Console.Clear()
op3()
Case "4"
Console.Clear()
op4()
Case "5"
Console.Clear()
op5()
Case "6"
Console.Clear()
op6()
Case "A"
Console.Clear()
opA()
Case "B"
Console.Clear()
opB()
Case "C"
Console.Clear()
opC()
Case "D"
Console.Clear()
opD()
Case "E"
Console.Clear()
opE()
Case "F"
Console.Clear()
opF()
Case "G"
Console.Clear()
OPG()
Case "a"
Console.Clear()
opA()
Case "b"
Console.Clear()
opB()
Case "c"
Console.Clear()
opC()
Case "d"
Console.Clear()
opD()
Case "e"
Console.Clear()
opE()
Case "f"
Console.Clear()
opF()
Case "g"
Console.Clear()
OPG()
Case Nothing
MsgBox("Wählen Sie bitte eine Option aus!", MsgBoxStyle.Information)
Console.Clear()
hauptmenue()
End Select
Catch ex As Exception
MsgBox(ex, MsgBoxStyle.Critical)
Console.Read()
End Try
End Sub
Sub op1()
Console.WriteLine()
Console.WriteLine("Welches Laufwerk soll überprüft werden?")
Console.WriteLine()
Console.Write("Laufwerk: ")
str2 = Console.ReadLine()
Shell("chkdsk " & str2 & ": /f")
Console.ReadLine()
Console.Clear()
hauptmenue()
End Sub
Sub op2()
Console.WriteLine()
Shell("systeminfo")
Console.ReadLine()
Console.Clear()
hauptmenue()
End Sub
Sub op3()
Shell("ipconfig")
Console.ReadLine()
Console.Clear()
hauptmenue()
End Sub
Sub op4()
Console.WriteLine()
Shell("netstat")
Console.ReadLine()
Console.Clear()
hauptmenue()
End Sub
Sub op5()
Console.WriteLine()
Shell("ping www.google.de")
Console.ReadLine()
Console.Clear()
hauptmenue()
End Sub
Sub op6()
Console.WriteLine()
Console.WriteLine("[1] Benutzer hinzufügen")
Console.WriteLine("[2] Benutzer anzeigen")
Console.WriteLine("[3] Benutzer löschen")
Console.WriteLine("[4] zurück zum hauptmenü")
Console.WriteLine()
Console.Write("Wählen Sie eine Option aus(1-4): ")
str2 = Console.ReadLine
Select Case str2
Case "1"
Console.Clear()
op61()
Case "2"
Console.Clear()
op62()
Case "3"
Console.Clear()
op63()
Case "4"
Console.Clear()
op64()
Case Nothing
MsgBox("Bitte wählen Sie eine Option aus!", MsgBoxStyle.Information)
End Select
End Sub
Sub op61()
Console.Write("Neuer Benutzername: ")
str4 = Console.ReadLine
Shell("net user " & str4 & " * /add")
Console.ReadLine()
Console.Clear()
op6()
End Sub
Sub op62()
Console.WriteLine()
Shell("net user")
Console.ReadLine()
Console.Clear()
op6()
End Sub
Sub op63()
Console.Write("Welcher Benutzer soll entfernt werden?:")
str5 = Console.ReadLine
Shell("net user " & str5 & " /delete")
Console.ReadLine()
Console.Clear()
op6()
End Sub
Sub op64()
hauptmenue()
End Sub
Sub opA()
Console.WriteLine()
Shell("netsh winsock reset")
Console.WriteLine()
Shell("netsh int ip reset")
Console.ReadLine()
Console.Clear()
hauptmenue()
End Sub
Sub opB()
Console.WriteLine()
Console.Write("Geben Sie bitte hier den Benutzernamen ein, von dem das Passwort entfernt werden soll: ")
strB = Console.ReadLine
Console.Clear()
B1()
End Sub
Sub B1()
Console.WriteLine()
Shell("net user " & strB & " *")
Console.Clear()
MsgBox("Passwort von " & strB & " wurde entfernt / geändert!", MsgBoxStyle.Information)
hauptmenue()
End Sub
Sub opC()
Console.WriteLine()
Shell("powershell")
Shell("powershell (Get-WmiObject-query 'select * from SoftwareLicensingService').OA3xOriginalProductKey")
Console.ReadLine()
Console.Clear()
hauptmenue()
End Sub
Sub opD()
Console.WriteLine()
Console.Write("Welches Laufwerk soll gesichert werden?: ")
strD = Console.ReadLine()
Console.Clear()
Console.WriteLine()
Console.Write("Auf welchem Laufwerk soll die Sicherung gespeichert werden?: ")
strD1 = Console.ReadLine()
Console.Clear()
d1()
End Sub
Sub d1()
Console.WriteLine()
Shell("wbadmin start backup -quiet -backuptarget:" & strD1 & ": -include:" & strD & ":")
Console.ReadLine()
Console.Clear()
hauptmenue()
End Sub
Sub opE()
Console.WriteLine()
Shell("powershell")
Shell("powershell Checkpoint-Computer ""Sicherung""")
Console.ReadLine()
Console.Clear()
hauptmenue()
End Sub
Sub opF()
Console.WriteLine()
Console.WriteLine("[1] Windows Updates Deaktivieren!")
Console.WriteLine("[2] Windows Updates Aktivieren!")
Console.Write("Wählen sie eine Option aus (1-2): ")
strF = Console.ReadLine()
Select Case strF
Case "1"
Console.Clear()
F1()
Case "2"
Console.Clear()
F2()
Case Nothing
MsgBox("Bitte wählen Sie eine Option aus!", MsgBoxStyle.Information)
End Select
End Sub
Sub F1()
Console.WriteLine()
Shell("sc config wuauserv start= disabled")
Console.ReadLine()
Console.Clear()
MsgBox("Windows Updates werden nach einem Neustart deaktiviert!", MsgBoxStyle.Information)
hauptmenue()
End Sub
Sub F2()
Console.WriteLine()
Shell("sc config wuauserv start= demand")
Console.ReadLine()
Console.Clear()
MsgBox("Windows Updates werden nach einem Neustart aktiviert!", MsgBoxStyle.Information)
hauptmenue()
End Sub
Sub OPG()
Console.WriteLine()
Console.WriteLine(" [1] Administratorkonto Aktivieren")
Console.WriteLine(" [2] Administratorkonto deaktivieren")
Console.WriteLine()
Console.Write("Wählen Sie bitte eine Option aus (1-2): ")
strG = Console.ReadLine()
Select Case strG
Case "1"
Console.Clear()
g1()
Case "2"
Console.Clear()
g2()
Case Nothing
MsgBox("Bitte wählen Sie eine Option aus!", MsgBoxStyle.Information)
End Select
End Sub
Sub g1()
Console.WriteLine()
Shell("net user Administrator /active:yes")
Console.ReadLine()
Console.Clear()
hauptmenue()
End Sub
Sub g2()
Console.WriteLine()
Shell("net user Administrator /active:no")
Console.ReadLine()
Console.Clear()
hauptmenue()
End Sub
End Module

ToolFix 2

ToolFix 2

VB.NET-Quellcode

Benutzer online 1

2 Benutzer haben hier geschrieben