Host pingen mit VBScript via WMI

Heute musste ich in einem VBScript einen Host pingen können. Zuerst habe ich lange versucht, mit cmd den Host zu pingen und um dann den zurückgegebenen Text zu filtern. Es gibt viel einfacher, schneller, bequemer und es geht kein cmd Fenster auf. Die Lösung ist WMI. So sieht die Funktion aus:

Function Reachable(host)
	Dim wmiQuery, objWMIService, objPing, objStatus
	wmiQuery = "Select * From Win32_PingStatus Where Address = '" & host & "'"
	Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
	Set objPing = objWMIService.ExecQuery(wmiQuery)
	For Each objStatus in objPing
		If IsNull(objStatus.StatusCode) Or objStatus.Statuscode<>0 Then
			Reachable = False 'if computer is unreacable, return false
		Else
			Reachable = True 'if computer is reachable, return true
		End If
	Next
End Function

Gefunden habe ich den Codesnippet hier: visualbasicscript.com

Brute Force Passwortliste erstellen (Bash)

Weil sich mein Intel Core 2 Quad Processor Q9550 in meinem „Server-PC“ langweillt und dieser eigentlich 24 * 7 läuft habe ich ein Miniprogramme (wenn man das schon Programm nennen darf) in der Bash geschrieben, welches eine Brute Force Passwortliste erstellen soll.

Der Beitrag besteht aus einem Praxis- und einem Theorieteil. Ich schreibe den Praxisteil absichtlich vor dem Theorieteil, weil man nach der Theorie die Praxis wegen entmutigung nicht mehr lesen würde ;-). Weiterlesen

String teilen und Teile in MySQL DB eintragen

Ein kleiner Codeschnipsel, wie man mit PHP einen String teilen und die Teile in eine MySQL Datenbank eintragen kann:


$array_mit_einzelnen_teilen = explode(";", $string); // ";" ist der Delimiter
$max = sizeof($array_mit_einzelnen_teilen); // Anzahl der Teile berechnen
for($count = 0; $count < $max; $count++)
{
	$wert = $array_mit_einzelnen_teilen[$count];
	$sql = "INSERT INTO tabellenname (wert) VALUES ('$wert')";
	mysql_query($sql);
}