none
Script para coger hora, fecha y zona horaria actual de la máquina RRS feed

  • Pregunta

  • Buenas,

    Alguien sabría como hacer para coger en un .txt la hora, fecha y zona horaria actual configurada en el SO Windows XP?. Es decir que en el txt guardara algo así:

    20:12 20/10/2013 (UTC +01:00) Bruselas, Copenhague, Madrid, París

    Muchas gracias.

    • Editado NALMEIDAE domingo, 20 de octubre de 2013 18:13 Modificación
    sábado, 19 de octubre de 2013 15:14

Respuestas

  • Hola,

    Algo así...

    'Get date, time, timezone data -> Export TXT
    set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objNetwork = CreateObject("WScript.Network")
    
    strPath = "C:\temp\data.txt" 'Sustituye por path de archivo de salida. Para recoger varias, utiliza ruta UNC de GPO
    strComputer = objNetwork.computername
    
    'Get TimeZone
    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    set colItems = objWMIService.ExecQuery ("Select * From Win32_TimeZone")	
    for each item in colItems
    	strTZ = item.caption
    next
    
    set objFile = objFSO.opentextFile (strPath,8,true) 'Append
    objFile.writeLine strComputer & "," & now() & "," & strTZ
    objFile.close
    

    Te añado el computername al output para que luego puedas filtrar, si no hace falta lo puedes quitar... El output sería algo así...

    PCJULIO,21/10/2013 21:17:13,(UTC+01:00) Bruselas, Copenhague, Madrid, París

    Saludos

    Julio Rosua

    • Marcado como respuesta NALMEIDAE martes, 22 de octubre de 2013 17:18
    lunes, 21 de octubre de 2013 19:19

Todas las respuestas

  • Hola,

    Algo así...

    'Get date, time, timezone data -> Export TXT
    set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objNetwork = CreateObject("WScript.Network")
    
    strPath = "C:\temp\data.txt" 'Sustituye por path de archivo de salida. Para recoger varias, utiliza ruta UNC de GPO
    strComputer = objNetwork.computername
    
    'Get TimeZone
    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    set colItems = objWMIService.ExecQuery ("Select * From Win32_TimeZone")	
    for each item in colItems
    	strTZ = item.caption
    next
    
    set objFile = objFSO.opentextFile (strPath,8,true) 'Append
    objFile.writeLine strComputer & "," & now() & "," & strTZ
    objFile.close
    

    Te añado el computername al output para que luego puedas filtrar, si no hace falta lo puedes quitar... El output sería algo así...

    PCJULIO,21/10/2013 21:17:13,(UTC+01:00) Bruselas, Copenhague, Madrid, París

    Saludos

    Julio Rosua

    • Marcado como respuesta NALMEIDAE martes, 22 de octubre de 2013 17:18
    lunes, 21 de octubre de 2013 19:19
  • Esto es en Visual Basic Script?
    martes, 22 de octubre de 2013 17:26