Kategorie: Programmierung

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

Powershell: Setzen von IP und Computername

Posted on By Daniel Lensing Keine Kommentare zu Powershell: Setzen von IP und Computername

In den Demo-Umgebungen möchte man fix die Netzwerkeinstellungen und Computernamen nach einer Grundinstallation oder Kopieren einer virtuellen Maschine anpassen. Dieses ist mit einem vorgefertigtem Powershell-Skript in kurzer Zeit realisierbar.

#Variablen
$ip = "192.168.0.5" 
$prefix = "24" 
$gw = "192.168.0.1" 
$dns = "192.168.0.1" 
$name = "Server1" 
 
#Setzen der IP-Einstellungen
$adapter = (Get-NetAdapter).ifIndex 
New-NetIPAddress -IPAddress $ip -PrefixLength $prefix -InterfaceIndex $adapter -DefaultGateway $gw 
#Setzen des DNS-Servers
Set-DNSClientServerAddress –InterfaceIndex $Adapter -ServerAddresses $dns
#Setzen des Computernamens
Rename-Computer -NewName $name -force 
#Neustart des Systems
Restart-Computer
Powershell