Ist zwar eine einfach Funktion aber dennoch wenn man sie hat muß man sie nicht immer selber Tippen
Function GetDate()
'------------------ Ermittelt das aktuelle Datum
Dim Monat : Monat = Month(now)
Dim Tag : Tag = Day(Now)
Dim Jahr : Jahr = Year(now)
If Monat < 10 then
Monat = "0" & Monat
End If
If Tag < 10 Then
Tag = "0" & Tag
End If
GetDate = Tag & "." & Monat & "." & Jahr
End Function
Bei internen (Intranet) Anwendungen werden die ActiveX Steuerelemente geblockt
Lösung :
1.) Eine Datei anlegen mit der Endung .vbs z.B. set_activex.vbs
2.) Den unten aufgeführten Code in diese Datei kopieren
3.) Das Skript mit in das Loginscript aufnehmen z.B. start /B cscript.exe //NOLOGO [PFAD zum Skript]\set_activex.vbs
Nachdem das Skript beim Login durchgelaufen ist stehen alle ActiveX Berechtigungen auf Aktiviert
Option Explicit
' --------------------------------------------------------------------------------------------
' - Setz die sicherheit für die ActiveX Steuerelemente für die lokale Zone auf erlauben
' -
' - Source : Christopher Pope
' --------------------------------------------------------------------------------------------
Dim ObjWsh : Set ObjWsh = CreateObject("WScript.Shell")
DIm I
Dim RegZone : RegZone = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\1\"
Dim PopUpReg : PopUpReg = "HKCU\Software\Microsoft\Internet Explorer\New Windows\PopupMgr"
Um festzustellen, ob eine Zahl gerade oder Ungerade ist, kann man den VBScript-Operator Modulo verwenden. Der Modulo-Operator gibt den Rest einer Teilung aus, Beispiel:
11 Mod 5
Teilt man 11 durch 5(=2), und nimmt dann den Rest von 11 - (2*5) dann erhält man die Zahl eins, somit ist das Ergebnis dieser Modulo-Anwendung 1. Fliesskommazahlen werden dabei in ganze Zahlen umgewandelt. Möchte man jetzt ermitteln, ob gerade oder ungerade Zahl, so muss als 2. Operand die Zahl 2 eingesetzt werden. Hier ein konkretes Beispiel:
Rest = Zahl Mod 2
If Rest > 0 Then
msgbox "Ungerader Wert"
Else
msgbox "Gerader Wert"
End if
Dieses Skript ließt alle lokal installierten Drucker aus:
Set objNetwork = WScript.CreateObject("WScript.Network")
Set colPrinters = objNetwork.EnumPrinterConnections
For i = 0 to colPrinters.Count -1 Step 2
Wscript.Echo colPrinters.Item (i + 1)
Next
“Das einzig sichere System müsste ausgeschaltet, in einem versiegelten und von Stahlbeton ummantelten Raum und von bewaffneten Schutztruppen umstellt sein.”
