Das Notes Forum

HCL Notes / Domino / Diverses => Entwicklung => Thema gestartet von: Legolas am 11.03.21 - 16:37:31



Titel: Datumsforamt von windows auslesen
Beitrag von: Legolas 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


Titel: Re: Datumsforamt von windows auslesen
Beitrag von: Werner Götz 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


Titel: Re: Datumsforamt von windows auslesen
Beitrag von: Ralf_B 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


Titel: Re: Datumsforamt von windows auslesen
Beitrag von: Legolas am 16.03.21 - 11:48:18
Danke,

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

Grüße
Bernd