Kategorie: Programmierung

PHP: SQL-Verbindung herstellen

Posted on By Daniel Lensing Keine Kommentare zu PHP: SQL-Verbindung herstellen

Bei einigen Web-Projekten arbeitet man mit 2 verschiedenen Bereichen:

  • Test-Umgebung
  • Produktiv-Umgebung

Vieles wird erst in der Test-Umgebung mit einer Test-Datenbank erstellt und geprüft. Irgendwann kommt aber auch der Zeitpunkt, wo man es in die Release-Phase bringen und es in der Live-Umgebung zu mindestens prüfen möchte.

Man kann unter PHP die SQL-Verbindung der Datenbank in eine separate Datei (in diesem Beispiel mit dem Namen „database.php“) auslagern, die dann wie folgt aussieht:

<?php
mysql_connect("localhost", "Benutzer","Passwort") or die ("Keine Verbindung möglich");
mysql_select_db("Datenbankname") or die ("Die Datenbank existiert nicht.");
?>

Die Werte „Benutzer“, „Passwort“ und „Datenbankname“ müssen natürlich durch die eigenen Zugangsdaten ersetzt werden. Auch der Eintrag „localhost“ kann in einen Servernamen angepasst werden.

In die Standard-PHP-Datei, z.B. index.php, muss nun nur die folgende Zeile eingefügt werden:

include("database.php");

Entsprechend werden die Daten zum Verbindungsaufbau genutzt. Durch einen Austausch der Datei kann zum Beispiel auch zwischen Test- und Produktiv-Umgebung gewechselt werden, ohne immer am Code zu arbeiten.

Natürlich kann die Verbindung auch in die eigentliche Datei mit dem selben Aufruf eingearbeitet werden.

PHP

VBS: IMEI der WWAN-Karte ermitteln

Posted on By Daniel Lensing Keine Kommentare zu VBS: IMEI der WWAN-Karte ermitteln

In einem Projekt gab es die Aufgabe die IMEI-Nummer der verbauten UMTS-Karte zu ermitteln. Dieses ist per NETSH-Befehl möglich, was allerdings automatisiert durchgeführt werden sollte.

Anbei das Skript, was die IMEI-Nummer als Messagebox ausgibt:

    Option Explicit
 
    Dim IMEI, IMEIID
    Dim cmdquery
    Dim oShell
    Dim Result, strLine
    Dim Flag
 
    Set oShell = CreateObject("WSCript.Shell")
 
    cmdquery = "netsh mbn sh int"
 
    Flag = False
 
    Set Result = oShell.Exec(cmdquery)
 
    Set IMEI = Result.StdOut
 
    While Not IMEI.AtEndOfStream
       strLine = IMEI.ReadLine
       If InStr(strLine, "Mobile Breitbandverbindung") Then
        Flag = True
       End If
       If Flag = True Then
         If InStr(strLine, "Ger„te-ID          :") Then
          IMEIID = Trim(strLine)
          IMEIID = Right(IMEIID, Len(IMEIID)-21)
        Msgbox(IMEIID)
	Flag = False
         End If
       End If
    Wend

Statt der MessageBox kann der Wert auch weitergenutzt oder an andere Programme weitergegeben werden. Dieses ist derzeit nur unter Windows 7 (deutsch) getestet. Für andere Sprachen sind Anpassungen erforderlich

VBS, Windows 7, Windows 8

Powershell: Download-Skript

Posted on By Daniel Lensing Keine Kommentare zu Powershell: Download-Skript

In einigen Skripten benötigt man auch Downloads von Dateien aus dem Internet oder man möchte zum Beispiel eine Datei per Task zeitgesteuert herunterladen. Dieses kann über das folgende Skript ausgeführt werden:

# Variablen des Skriptes
 
# Download-Pfad der Remote-Datei
$web = "http://www.domain.tld/download.dat"
 
# Speicherort der heruntergeladenen Datei
$download = "C:\users\usr\downloads\"
 
# Falls die Datei eine Authentifizierung erfordert, 
# kann diese hier definiert werden
$user = ""
$passwort = ""
$domaene = ""
 
# Vortäuschen eines Windows 8 inkl. Internet Explorer 10 zu benutzen
# Bei einigen Webseiten wird ein UserAgent zum erfolgreichen Download benötigt
$agent = "Mozilla/5.0 (compatible; MSIE 10.0; Windows NT 6.2; Win64; x64; Trident/6.0)"
 
# Ablaufroutine
$DownloadClient = New-Object System.Net.WebClient
$DownloadClient.Headers.Add("user-agent", $agent)
$DownloadClient.Credentials = New-Object System.Net.Networkcredential($user, $passwort, $domaene)
$DownloadClient.DownloadFile( $web, $download )
Powershell

MessageBox per Batch-Datei anzeigen

Posted on By Daniel Lensing 11 Kommentare zu MessageBox per Batch-Datei anzeigen

Über eine Batchdatei sollte ein Hinweisfenster angezeigt werden. Dieses habe ich wie folgt realisiert:

@echo off
echo msgbox"Text der MessageBox",vbInformation , "Titel der Messagebox"> %temp%\msg.vbs 
%Temp%\msg.vbs 
erase %temp%\msg.vbs

Es können natürlich auch weitere Zeilen eingefügt werden, so dass auch eine Abfragesteuerung nach „OK“ und „Abbrechen“ genutzt werden kann. Selbstverständlich kann auch wie sonst unter VBS das Design definiert werden. Unter anderem das Hinweiszeichen hier im Beispiel als Information (vbInformation).

Nach der Abarbeitung wird das Skript auch vom System gelöscht.

VBS

Powershell: Verknüpfung auf Skript erstellen

Posted on By Daniel Lensing Keine Kommentare zu Powershell: Verknüpfung auf Skript erstellen

In der letzten Zeit musste ich mich sehr intesiv mit Powershell beschäftigen und habe auch die ersten Fortschritte im Bereich Skripting gemacht.

Nun wollte ich ganz gerne auch Verknüpfungen auf die entsprechenden Skripte erstellen, damit ich nicht immer die Aufrufe manuell machen muss. Dieses ist allerdings doch gar nicht so trivial wie ich es vermutet habe. Hier die Syntax:

C:\Windows\System32\WindowsPowerShell\v1.0\powershell.exe -Command „& ‚C:\PS Skripting\skript.ps1′“

Entsprechend kann ich nun die Skripte auch auf dem Desktop oder einem Sammelordner verknüpfen.

Powershell

Word-VBA: Rote Schrift per Makro anpassen

Posted on By Daniel Lensing 2 Kommentare zu Word-VBA: Rote Schrift per Makro anpassen

Ich habe ein großes Word-Dokument erhalten, welches wichtige Daten in rot gekennzeichnet hat. Da mir für den Ausdruck nur ein Schwarz-Weiß-Drucker zur Verfügung steht, benötige ich ein anderes Unterscheidungsmerkmal.

Als Idee hatte ich nun die roten Zeichen als Unterscheidungsmerkmal in „fett“ und „kursiv“ zu setzen. Da es viele Seiten zu editieren galt, behalf ich mich mit dem folgenden Makro, welches mir die Umsetzung abnahm:

Sub RedChanger
 'Falls das Zeichen die Farbe "Rot" besitzt, folgendes durchführen:
 '- Schrift auf "automatisch" setzen
 '- Schrift auf "fett" setzen
 '- Schrift auf "kursiv" setzen
 
 Dim WordDocument As Word.Document
 Dim longCount As Long
 Set WordDocument = ActiveDocument
 Application.ScreenUpdating = False
 
 For longCount = 1 To WordDocument.Range.Characters.Count
  If WordDocument.Characters(longCount).Font.Color = wdColorRed Then
      WordDocument.Characters(longCount).Font.Color = 0
      WordDocument.Characters(longCount).Font.Bold = True
      WordDocument.Characters(longCount).Font.Italic = True
  End If
  Application.ScreenUpdating = True
 DoEvents
 Next
End Sub

Dieses Skript kann natürlich auch für andere Zwecke erweitert und angepasst werden. Jedes Zeichen wird dabei einzeln analysiert, so dass die Anpassung eines Textes eine gewisse Zeit in Anspruch nimmt.

Office, VBA

VBS: Bitlocker-Key erneut in AD speichern

Posted on By Daniel Lensing Keine Kommentare zu VBS: Bitlocker-Key erneut in AD speichern

Wenn man die Bitlocker-Wiederherstellungsschlüssel in der Domäne speichert, kann es zu dem Fall kommen, dass ein Computerobjekt keinen Schlüssel zur Verfügung hat, obwohl das System selber sich trotzdem in der Domäne befindet.

Meistens passiert dieses, wenn ein Rechner-Objekt in der Domäne gelöscht wird und wieder aufgenommen wird. Bei der Domänenaufnahme wird der Bitlockerschlüssel nicht wieder an den Domänencontroller übergeben. Dieses kann aber durch ein VBS-Skript durchgeführt werden. 

Ich veröffentliche hier das Skript unter Nutzung von „Deutsch“ als Displaysprache. Das von Microsoft verfügbare Skript ist auf Englisch ausgelegt und wurde von mir angepasst.

    Option Explicit
 
    Dim strNumericalKeyID
    Dim strManageBDE,strManageBDE2
    Dim oShell
    Dim StrPath
    Dim StdOut, strCommand
    Dim Result, TPM, strLine
    Dim Flag, NumericalKeyID
 
    Set oShell = CreateObject("WSCript.Shell")
 
    strManageBDE = "Manage-BDE.exe -protectors -get c:"
 
    Flag = False
 
    Set Result = oShell.Exec(strManageBDE)
 
    Set TPM = Result.StdOut
 
    While Not TPM.AtEndOfStream
       strLine = TPM.ReadLine  'Sets strLine
       If InStr(strLine, "Numerisches Kennwort:") Then  
        Flag = True
       End If
       If Flag = True Then
         If InStr(strLine, "ID:") Then 
          NumericalKeyID = Trim(strLine)
          NumericalKeyID = Right(NumericalKeyID, Len(NumericalKeyID)-4)
          Flag = False
         End If
       End If
    Wend
 
    strManageBDE2 = "Manage-BDE.exe -protectors -adbackup C: -ID " & NumericalKeyID
    oShell.Run strManageBDE2, 0, True

Dieses Skript kann auch automatisiert regelmäßig ausgeführt werden, da der Wiederherstellungsschlüssel mit dem entsprechenden Datum seiner Erstellung in der AD gespeichert wird und nicht bei jeder Übermittlung des entsprechenden Wertes. Somit kann eine Ablage dieses wichtigen Objektes in der Active Directory gewährleistet werden ohne zusätzliches Datenvolumen in der AD aufzubauen.

VBS, Windows 7, Windows 8