… nein keine Angst, ich höre nicht auf mit dem Bloggen! Die Ära bezieht sich auf meine 4 Jährige Lehre, die ich ich wenigen Tagen abschliessen werde!
Und als ich mich so durch meine Ordnerstrukturen geklickt habe, wurde mir klar, dass sich in den 4 Jahren sehr viele kleine, aber auch wichtige und interessante Scripts, Kommandos und ähnliches angesammelt hat. Und da ich denke, es könnte dem einen oder anderen vielleicht mal helfen, möchte ich euch das nicht vorenthalten.
Beginnen wir mit einem einfachen VBS-Script um ein Netzlaufwerk zu verbinden unter Windows. Ich weiss die gibts wie Sand am Meer, aber meines ist besser 
'Author: Patrick schmid
'Datum: 23.9.2008
'Version: 1.0.0
Option Explicit
'Variablen einlesen
Dim objNetwork, objFSO
Dim strPath, strDrive, bolPer, strUsr, strPas
'Neue Systemojekte kreieren
Set objNetwork = CreateObject("WScript.Network")
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Relevante Daten definieren
strPath = "\\PFAD\ZUM\SERVER'
strDrive = "W:"
bolPer = False
strUsr = "USER"
strPas = "PASSWORD"
'Prüfen ob Drive schon vorhanden
If NOT objFSO.DriveExists (strDrive) Then
'drive mappen
objNetwork.MapNetworkDrive strDrive, strPath , bolPer, strUsr, strPas
End If
Oder noch ein VBS-Script, um zwei DNS-Einträge zu setzen:
'-----------------------------------------------------------------------------------------------
'Author: Patrick Schmid
'Date: 14.12.2009
'Version: 1.0
'-----------------------------------------------------------------------------------------------
Option Explicit
'reserve variabels
Dim objWMIService, colNetCards, arrDNSServers, objNetCard, strprimary, strsecondary
'set dns ips for primary and secondary
strprimary = "192.168.1.18"
strsecondary = "192.168.1.19"
'set array with primary and secondary dns server
arrDNSServers = Array(strprimary, strsecondary)
'get system environment
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
'get all Network interfaces
Set colNetCards = objWMIService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
'read each network interface in variable
For Each objNetCard in colNetCards
'set dns arry to network interface
objNetCard.SetDNSServerSearchOrder(arrDNSServers)
Next
Nun weg von der dunklen Seite – auf zu Linux, da hab ich entsprechend mehr Material 
