Time, Registry, & Remote machines... oh my

[KXM]

Quick question, is it possable to get the time from a remote machine on my LAN, and use it to set the time on local machine.

I quess what I'm asking is where are the Windows Time registry settings (if any)?

Any help is great!

TIA.

[BigDod]

Quick question, is it possable to get the time from a remote machine on my LAN, and use it to set the time on local machine.

I quess what I'm asking is where are the Windows Time registry settings (if any)?

Any help is great!

TIA.

You could use PSExec to run the time command on the remote computer then use the result to set the time on the local computer. PSExec is part of PSTools from Sysinternals

[GaryFrost]

using beta, change "localhost" to machine name

CODE

$wbemFlagReturnImmediately = 0x10

$wbemFlagForwardOnly = 0x20

$colItems = ""

$strComputer = "localhost"

$Output=""

$Output = $Output & "Computer: " & $strComputer & @CRLF

$Output = $Output & "==========================================" & @CRLF

$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")

$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem", "WQL", _

$wbemFlagReturnImmediately + $wbemFlagForwardOnly)

If IsObj($colItems) then

For $objItem In $colItems

$Output = $Output & "LocalDateTime: " & WMIDateStringToDate($objItem.LocalDateTime) & @CRLF

if Msgbox(1,"WMI Output",$Output) = 2 then ExitLoop

$Output=""

Next

Else

Msgbox(0,"WMI Output","No WMI Objects Found for class: " & "Win32_OperatingSystem" )

Endif

Func WMIDateStringToDate($dtmDate)

Return (StringMid($dtmDate, 5, 2) & "/" & _

StringMid($dtmDate, 7, 2) & "/" & StringLeft($dtmDate, 4) _

& " " & StringMid($dtmDate, 9, 2) & ":" & StringMid($dtmDate, 11, 2) & ":" & StringMid($dtmDate,13, 2))

EndFunc

[KXM]

using beta, change "localhost" to machine name

CODE

$wbemFlagReturnImmediately = 0x10

$wbemFlagForwardOnly = 0x20

$colItems = ""

$strComputer = "localhost"

$Output=""

$Output = $Output & "Computer: " & $strComputer & @CRLF

$Output = $Output & "==========================================" & @CRLF

$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")

$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem", "WQL", _

$wbemFlagReturnImmediately + $wbemFlagForwardOnly)

If IsObj($colItems) then

For $objItem In $colItems

$Output = $Output & "LocalDateTime: " & WMIDateStringToDate($objItem.LocalDateTime) & @CRLF

if Msgbox(1,"WMI Output",$Output) = 2 then ExitLoop

$Output=""

Next

Else

Msgbox(0,"WMI Output","No WMI Objects Found for class: " & "Win32_OperatingSystem" )

Endif

Func WMIDateStringToDate($dtmDate)

Return (StringMid($dtmDate, 5, 2) & "/" & _

StringMid($dtmDate, 7, 2) & "/" & StringLeft($dtmDate, 4) _

& " " & StringMid($dtmDate, 9, 2) & ":" & StringMid($dtmDate, 11, 2) & ":" & StringMid($dtmDate,13, 2))

EndFunc

Sweet! this retrives the time like a charm... THNX!!!

I hate to be more of a bother, but do you know if the is also a com object to set the time on the local unit?

[BigDod]

Sweet! this retrives the time like a charm... THNX!!!

I hate to be more of a bother, but do you know if the is also a com object to set the time on the local unit?

You could always use the DOS command "time"

[KXM]

Didn't realize there was one, but that'll do wonderfully, as I know nothing of COM.

THNX greatly!

[KXM]

Both systems worked like a charm... Thank you both again.

[Selmak]

If it's just a question of synchronising, then

net time \\servername /set /yes

will work on any Windows LAN.

[KXM]

HOLY CRAP!!!

That rocks!

THANK YOU SO VERY MUCH!!!11one

30 lines of code cut down to one.... Sweet!