Autor Thema: Datumsforamt von windows auslesen  (Gelesen 1129 mal)

Offline Legolas

  • Senior Mitglied
  • ****
  • Beiträge: 433
  • Geschlecht: Männlich
Datumsforamt von windows auslesen
« 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
Arbeite klug, nicht hart.

Offline Werner Götz

  • Aktives Mitglied
  • ***
  • Beiträge: 213
  • Geschlecht: Männlich
Re: Datumsforamt von windows auslesen
« Antwort #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

Offline Ralf_B

  • Aktives Mitglied
  • ***
  • Beiträge: 142
  • Geschlecht: Männlich
Re: Datumsforamt von windows auslesen
« Antwort #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

Offline Legolas

  • Senior Mitglied
  • ****
  • Beiträge: 433
  • Geschlecht: Männlich
Re: Datumsforamt von windows auslesen
« Antwort #3 am: 16.03.21 - 11:48:18 »
Danke,

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

Grüße
Bernd
Arbeite klug, nicht hart.

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz