Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

In VBS Date-Funktionen nutzen...

Frage Entwicklung VB for Applications

Mitglied: Dude-from-R00t

Dude-from-R00t (Level 2) - Jetzt verbinden

05.06.2011, aktualisiert 16:16 Uhr, 3984 Aufrufe, 8 Kommentare

Loginscript: an bestimmtem Datum Aktion ausführen...

Hallo,

ich komm wohl doch nie weg von meinem guten alten DOS-Batch....

Zum Henker wie bekomme ich es gebacken, das in einem Loginscript (VBS) an einem bestimmten Datum eine Messagebox erscheint. Und das UNABHÄNGIG vom Datumsformat des Users....

Das hier funktioniert leider so gar nicht:

01.
if day("05") then and month("06") and year("2011") then 
02.
	wscript.echo ("Achtung! Heute gibt's gesponsorten Kaffee & Pflaumenkuchen in der Kantine :-DD") 
03.
end if
Irgdnwas fehlt da noch; nur was und vor allem: Wie ist das wenn einer am Datumsformat hantiert??

Danke für Eure Hilfe.

Frank
Mitglied: TsukiSan
05.06.2011 um 16:19 Uhr
hallo Frank,

dein
if day("05") then and month("06") and year("2011") then
beinhaltet ein then zu viel!

Gruss
Tski
Bitte warten ..
Mitglied: TsukiSan
05.06.2011 um 16:22 Uhr
Zum Henker wie bekomme ich es gebacken, das in einem Loginscript (VBS) an einem bestimmten Datum eine Messagebox erscheint. Und das UNABHÄNGIG vom Datumsformat des Users....

na evenutell so:
01.
dd = day(date) 
02.
mm = month(date) 
03.
yy = year(date) 
04.
 
05.
meinDatum = 01072011 
06.
 
07.
temp = dd & mm & yy 
08.
if temp = meinDatum then .....
so müßte es ungetestet funktionieren

Gruss
Tsuki
Bitte warten ..
Mitglied: Friemler
05.06.2011 um 16:25 Uhr
Hallo Frank,

  1. Ein Then zuviel
  2. Sollte das so heißen:

if day(now) = 5 and month(now) = 6 and year(now) = 2011 then
Gruß
Friemler


[EDIT]
Oh, zu langsam.
[/EDIT]
Bitte warten ..
Mitglied: jonny83
05.06.2011 um 16:34 Uhr
Hi,

also du verwendest in VBScript einfach nur "Date()" was dir das Datum vom System zurückliefert.
dein if day and month etc.... sieht schon noch mehr nach Batchverarbeitung aus

Du kannst das z.B. einfach so machen

szDatum = replace(Date(),"/",".")

so würde er dir z.B ein Datumsformat von 01/01/2011 in 01.01.2011 ändern.
das Ersetzen kannst du ja öfter machen falls du nicht sicher bist welches Datumsformat du zu erwarten hast.
du könntest das dann alles so machen:

nimm gar kein Zeichen im Datum - also nimm immer 01012011

szDatum = replace(Date(),"-","")
szDatum = replace(szDatum,"/","")
szDatum = replace(szDatum,".","")
usw....(falls überhaupt nötig)

dann bekommst du hier z.B. für heute: 05062011

jetzt suchst du danach

if szDatum = "05062011" then
---wscript.echo "kaffe kuchen und blaaaa"
end if

PS: das mit dem Replace könnte man auch besser verschachteln oder über eine schleife laufen lassen.
Alo du könntest deine Suchkriterien so setzen
szSuchen = "/#.#-"
später das dann in ein Array packen
arrSuchen = split(szSuchen,"#")
und dann das Array durchlaufen
For i = uBound(arrSuchen) to lBound(arrSuchen)

blabla usw....


noch was by the way:

guck mal - ich hatte das mal gebraucht bzgl. Datumsberechnung etc...
evtl. kannst du das gebrauchen für deine Kaffe & Pflaumenkuchen Ausgabe :D

' *
' Schritt0
' Das Datum des heutigen Tages wird ausgelesen bzw. es werden
' die "Ausnahmepr¸fungen" definiert
'
*
Dim dtmDate, intDayOfWeek, x
dtmDate = Date()
'dtmDate = #10/1/2010#

'*
' Ermitteln des ersten Montags des
' aktuellen Monats
'
*
Do Until x = 1
intDayOfWeek = Weekday(dtmDate)
If intDayOfWeek = 2 Then
Wscript.Echo "Der erste Montag des Monats ist am " & dtmDate & "."
Exit Do
Else
dtmDate = dtmDate + 1
End If
Loop
'*
' Pr¸fen ob HEUTE der erste Montag
' des aktuellen Monats ist
'
*
If dtmDate = Date() then
wscript.echo "JA"
else
wscript.echo "nein"
end if
Bitte warten ..
Mitglied: TsukiSan
05.06.2011 um 16:47 Uhr
hallo jonny83,

dein
so würde er dir z.B ein Datumsformat von 01/01/2011 in 01.01.2011 ändern.
würde nur fruchten, wenn die Einstellungen der Maschine dd/mm/YYYY sind.
frankoehli schreibt aber
das UNABHÄNGIG vom Datumsformat des Users....
da ist man mit Abfrage von
1) day(Date)
2) month(Date)
3) year(Date)
völlig unabhängig von. Und wie man die 3Dinger dann nachher zusammenbaut ist völlig dem Author des Progis überlassen
Trotzdem sind deine Ideen eventuell informativ für den TO

Gruss
Tsuki
Bitte warten ..
Mitglied: 76109
05.06.2011 um 17:54 Uhr
Hallo frankoehli!

Sollte auch so gehen:
01.
If DateSerial(2011, 6, 5) = Date Then WScript.Echo "..."
Gruß Dieter
Bitte warten ..
Mitglied: Dude-from-R00t
06.06.2011 um 11:17 Uhr
Hi an euch alle,

Bingo!

Letztlich hab ich folgendes Benutzt (Danke an Friemler) weil es mir am übersichtlichsten erscheint:


01.
if day(now) = 7 and month(now) = 6 and year(now) = 2011 then 
02.
  wscript.echo "Es gibt Kaffee in der Kueche" 
03.
      else 
04.
  wscript.echo "heute kein Kaffee" 
05.
end if 
Supi; Danke!
Bitte warten ..
Mitglied: Dude-from-R00t
06.06.2011 um 11:18 Uhr
Hallo,

danke euch allen! siehe oben mein letzter Kommentar. Supi!
Bitte warten ..
Ähnliche Inhalte
Datenbanken
gelöst SQL-Server: Wann Instanzen nutzen? (11)

Frage von User1000 zum Thema Datenbanken ...

Batch & Shell
Cpl Dateien per Batch oder VBS öffnen (1)

Frage von Angelo131095 zum Thema Batch & Shell ...

Linux Tools
gelöst Bash Script contains Bilden und nutzen (19)

Frage von OIOOIOOIOIIOOOIIOIIOIOOO zum Thema Linux Tools ...

Neue Wissensbeiträge
Windows 10

Windows 8.x oder 10 Lizenz-Key aus dem ROM auslesen mit Linux

(1)

Tipp von Lochkartenstanzer zum Thema Windows 10 ...

Tipps & Tricks

Wie Hackt man sich am besten in ein Computernetzwerk ein

(38)

Erfahrungsbericht von Herbrich19 zum Thema Tipps & Tricks ...

Heiß diskutierte Inhalte
Festplatten, SSD, Raid
POS Hardware und alternativen zu Raid 1? (21)

Frage von Brotkasten zum Thema Festplatten, SSD, Raid ...

Viren und Trojaner
Verschlüsselungstrojaner simulieren (18)

Frage von AlbertMinrich zum Thema Viren und Trojaner ...

Windows 10
Windows 10 Home "Netzlaufwerk nicht bereit" (12)

Frage von Oggy01 zum Thema Windows 10 ...

SAN, NAS, DAS
+100tb Storagelösung (10)

Frage von Data-Fabi zum Thema SAN, NAS, DAS ...