AtNotes Übersicht Willkommen Gast. Bitte einloggen oder registrieren.
17.09.21 - 03:12:37
Übersicht Hilfe Regeln Glossar Suche Einloggen Registrieren
News:
Schnellsuche:
+  Das Notes Forum
|-+  HCL Notes / Domino / Diverses
| |-+  Entwicklung (Moderatoren: eknori, fritandr, koehlerbv, Tode)
| | |-+  Datumsforamt von windows auslesen
« vorheriges nächstes »
Seiten: [1] Nach unten Drucken
Autor Thema: Datumsforamt von windows auslesen  (Gelesen 697 mal)
Legolas
Senior Mitglied
****
Offline Offline

Geschlecht: Männlich
Beiträge: 422



« am: 11.03.21 - 16:37:31 »

Hallo Forum,

kennt jemand von Euch eine Möglichkeit die Datumsformat Einstellungen von Windows auszulesen?
Hier gibt es doch sicher eine schöne DLL die das kann? ;-)

Ich meine die Region Settings für das Datumsformat:
z.B:  d-M-yyyy
oder:   tt-mm-jjjj


Grüße
Bernd
Gespeichert

Arbeite klug, nicht hart.
Werner Götz
Aktives Mitglied
***
Offline Offline

Geschlecht: Männlich
Beiträge: 193



« Antworten #1 am: 12.03.21 - 07:45:29 »

Ich hab das zwar noch nicht gebraucht / gemacht, könnte mir aber vorstellen, dass folgendes weiterhilft:
Code:
@RegQueryValue("HKEY_CURRENT_USER"; "Control Panel\\International"; "sShortdate")

-Werner
Gespeichert
Ralf_B
Aktives Mitglied
***
Offline Offline

Geschlecht: Männlich
Beiträge: 122


« Antworten #2 am: 12.03.21 - 07:58:18 »

Die Werte stehen alle in der Registry.
Da ich diese Werte mal bei einem Server überwachen musste, habe ich ein vbscript gemacht.

Code:
Dim Locator, oWMI, WQL, Instances, Instance
Dim fso, temp
Const HKEY_USERS          = &H80000003
Const lfile = "Regwatch.log" ' name of new logfile - the file should exists !
Const strComputer = "server.xxx.net"
regkey = ".Default\Control Panel\International\"
On Error Resume Next
' Startup
' ###################################################################
' # copy old Logfile                                                #
' ###################################################################
Set fso = CreateObject("Scripting.FileSystemObject")
temp = WScript.ScriptFullName
i = InStrRev(temp, "\")
temp = Left(temp,i )
lfile = temp &  CStr(lfile)  ' logfile

 

' ###################################################################
' # Log to Logfile                                                  #
' ###################################################################
If fso.fileExists(lfile) Then
logfile = lfile
temp = appendLog(now & "start " , logfile)
End If
'logfile.WriteLine (Now & " - Created Logfile - ")
' ###################################################################
' # End of : Open new Logfile                                       #
' ###################################################################
' End Startup

strValueName1 = "iDate"
strval1 = ""
strValueName2 = "iTime"
strval2 = ""
strValueName3 = "sDate"
strval3 = ""
strValueName4 = "sShortDate"
strval4 = ""
strValueName5 = "sTime"
strval5 = ""

temp = appendLog(("Values watched :" & strValueName1 & " _ " & strValueName2 & " _ " & strValueName3 & " _ " & strValueName4 & " _ " & strValueName5), logfile)


'count = 10000
'Do While Not count = 0
Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\"&strComputer & "\root\default:StdRegProv")


Return = objReg.GetExpandedStringValue(HKEY_USERS,regkey,strValueName1,strValue)
If (Return = 0) Then   
    strval1 = strValue
Else
    strval1 = "Error : " & Err.Number
End If
Return = objReg.GetExpandedStringValue(HKEY_USERS,regkey,strValueName2,strValue)
If (Return = 0)  Then   
    strval2 = strValue
Else
    strval2 = "Error : " & Err.Number
End If
Return = objReg.GetExpandedStringValue(HKEY_USERS,regkey,strValueName3,strValue)
If (Return = 0)  Then   
    strval3 = strValue
Else
    strval3 = "Error : " & Err.Number
End If
Return = objReg.GetExpandedStringValue(HKEY_USERS,regkey,strValueName4,strValue)
If (Return = 0) Then   
    strval4 = strValue
Else
    strval4 = "Error : " & Err.Number
End If
Return = objReg.GetExpandedStringValue(HKEY_USERS,regkey,strValueName5,strValue)
If (Return = 0) Then   
    strval5 = strValue
Else
    strval5 = "Error : " & Err.Number
End If

'logfile.WriteLine (Now & " - Values - ")
temp = appendLog((Now & " - :" & strval1 & " _ " & strval2 & " _ " & strval3 & " _ " & strval4 & " _ " & strval5 ),logfile)


'count = count -1
'Loop


temp = logging("close", logfile)
WScript.Quit



Function appendLog(Inhalt, logfile)
    Set FileOut = Fso.OpenTextFile(logfile,8,true)
    FileOut.WriteLine (Inhalt)
    FileOut.Close
    Set FileOut = Nothing
    appendLog = True
End Function
Gespeichert
Legolas
Senior Mitglied
****
Offline Offline

Geschlecht: Männlich
Beiträge: 422



« Antworten #3 am: 16.03.21 - 11:48:18 »

Danke,

das schau ich mir noch genau an.
Sieht aber sehr gut aus.

Grüße
Bernd
Gespeichert

Arbeite klug, nicht hart.
Seiten: [1] Nach oben Drucken 
« vorheriges nächstes »
Gehe zu:  


Einloggen mit Benutzername, Passwort und Sitzungslänge

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006, Simple Machines Prüfe XHTML 1.0 Prüfe CSS
Impressum Atnotes.de - Powered by Syslords Solutions - Datenschutz | Partner: