Can't check my own mail...
Set objWMIService1 = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer1 & "\root\cimv2")
Set objWMIService2 =
GetObject("winmgmts:{impersonationLevel=impersonate, " _
& "(Systemtime)}!\\" & strComputer2 & "\root\cimv2")
Find code below and replace with above
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Stelley,
Douglas
Sent: Tuesday, April 05, 2005 3:01 PM
To: [email protected]
Subject: RE: [ActiveDir] time sync script
Here's a simpe 'script' that'll do it for you across the domain. Rough
around the edges, but it works.
See the 2 required fields near the top.
Doug
On Error Resume Next
dim strComputer2
Set objExplorer = WScript.CreateObject("InternetExplorer.Application")
gowindow()
' enter your DC that controls time here
strComputer1 = "ntapps"
'strComputer2 = inputbox("client1")
dim objFS,TheFileObj,TheFilePath,dat
' enter the file name of all PC's
TheFilePath="Z:\reboot\timepcs.txt"
set objFS=CreateObject("Scripting.FileSystemObject")
set TheFileObj=objFS.OpenTextFile(ThefilePath,1,false)
Do Until TheFileObj.AtEndOfStream
strComputer2 = TheFileObj.Readline
Set objWMIService1 = GetObject("winmgmts:" _ &
"{impersonationLevel=impersonate}!\\" & strComputer1 & "\root\cimv2")
Set objWMIService2 =
GetObject("winmgmts:{impersonationLevel=impersonate, " _ &
"(Systemtime)}!\\" & strComputer2 & "\root\cimv2")
Set colOSes1 = objWMIService1.ExecQuery("SELECT * FROM
Win32_OperatingSystem")
strTime1 = Now
Set colOSes2 = objWMIService2.ExecQuery("SELECT * FROM
Win32_OperatingSystem")
strTime2 = Now
intSeconds1 = CInt(Left(Right(strTime1, 5), 2))
intSeconds2 = CInt(Left(Right(strTime2, 5), 2)) intDiff = 0 If
intSeconds1 <> intSeconds2 Then
intDiff = intSeconds2 - intSeconds1
End If
For Each objOS1 in colOSes1
For Each objOS2 in colOSes2
dtmRefDateTime = objOS1.LocalDateTime
intDateTime1 = Left(dtmRefDateTime, 14)
intDateTime2 = Left(objOS2.LocalDateTime, 14)
If intDiff <> 0 Then
intDateTime1 = intDateTime1 + intDiff
End If
If intDateTime1 = intDateTime2 Then
' gosamewindow(strComputer2)
objExplorer.Document.Body.InnerHTML = "Dates and times on " &
strComputer1 & " and " & strComputer2 & "are equal."
' Wscript.Echo "Dates and times on " & strComputer1 & " and " & _
' strComputer2 & "are equal."
Else
intSet = objOS2.SetDateTime(dtmRefDateTime)
If intSet = 0 Then
' gogoodwindow(strComputer2)
objExplorer.Document.Body.InnerHTML = "Successfully synchronized
date and time on " & strComputer2
' Wscript.Echo "Successfully synchronized date and time on " & _
' strComputer2 & " with reference (" & strComputer1 & ")."
Else
' gobadwindow(strComputer2)
objExplorer.Document.Body.InnerHTML = "Unable to set new date and
time on " & strComputer2
' Wscript.Echo "Unable to set new date and time on " &
strComputer2 & "."
End If
End If
Next
Next
loop
sub gowindow()
objExplorer.Navigate "about:blank"
objExplorer.ToolBar = 0
objExplorer.StatusBar = 0
objExplorer.Width=500
objExplorer.Height = 100
objExplorer.Left = 0
objExplorer.Top = 0
Do While (objExplorer.Busy)
Wscript.Sleep 200
Loop
objExplorer.Visible = 1
objExplorer.Document.Body.InnerHTML = "Retrieving account information. "
_
& strComputer2
end sub
sub gogoodwindow(strComputer2)
objExplorer.Document.Body.InnerHTML = "Successfully synchronized date
and time on " & strComputer2 end sub sub gobadwindow(strComputer2)
objExplorer.Document.Body.InnerHTML = "Unable to set new date and time
on " & strComputer2 end sub
sub gosamewindow(strComputer2)
objExplorer.Document.Body.InnerHTML = "Dates and times on " &
strComputer1 & " and " & strComputer2 & "are equal."
end sub
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Burkes, Jeremy
[Contractor]
Sent: Tuesday, April 05, 2005 2:51 PM
To: [email protected]
Subject: RE: [ActiveDir] time sync script
I believe that Windows time uses the system's BIOS clock in some way.
If your system was old and the BIOS battery had weakened or quit then
the next time you boot the clock would be off by minutes and Windows
would have to update itself again against the domain. At least I think
the above is true I could be wrong.
Jeremy
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Rich Milburn
Sent: Tuesday, April 05, 2005 2:36 PM
To: [email protected]
Subject: RE: [ActiveDir] time sync script
Matt, I did this once with a batch file that ran through a computer list
- something like this:
For %%i in (computers.txt) do net time \\%%i /DOMAIN:yourdomain /SET
I got the computers.txt with a net view >computers.txt I think there is
a /y that causes it to not ask for confirmation.
As I just saw someone else pointed out, no, you shouldn't have to do
this. For some reason we did though, some were out of sync by over 15
minutes.
------------------------------------------------------------------------
---
Rich Milburn
MCSE, Microsoft MVP - Directory Services Sr Network Analyst, Field
Platform Development Applebee's International, Inc.
4551 W. 107th St
Overland Park, KS 66207
913-967-2819
------------------------------------------------------------------------
---
"I am always doing that which I can not do, in order that I may learn
how to do it." - Pablo Picasso
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Adams, Kenneth
W (Ken)
Sent: Tuesday, April 05, 2005 1:27 PM
To: [email protected]
Subject: RE: [ActiveDir] time sync script
If you're talking about a script that runs on the client machines, then
just use the 'net time' command in a logon script.
Ken Adams
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Matt Brown
Sent: Tuesday, April 05, 2005 2:20 PM
To: [email protected]
Subject: [ActiveDir] time sync script
Anybody have a script that can check the time on client machines and
auto sync them with the Domain Controller?
Thanks,
--
Matt Brown
[ SELECT * FROM IT WHERE EyeContact=True ] Information Technology System
Specialist Eastern Washington University
List info : http://www.activedir.org/List.aspx
List FAQ : http://www.activedir.org/ListFAQ.aspx
List archive:
http://www.mail-archive.com/activedir%40mail.activedir.org/
List info : http://www.activedir.org/List.aspx
List FAQ : http://www.activedir.org/ListFAQ.aspx
List archive:
http://www.mail-archive.com/activedir%40mail.activedir.org/
-------APPLEBEE'S INTERNATIONAL, INC. CONFIDENTIALITY NOTICE-------
PRIVILEGED / CONFIDENTIAL INFORMATION may be contained in this message
or any attachments.
This information is strictly confidential and may be subject to
attorney-client privilege. This message is intended only for the use of
the named addressee. If you are not the intended recipient of this
message, unauthorized forwarding, printing, copying, distribution, or
using such information is strictly prohibited and may be unlawful. If
you have received this in error, you should kindly notify the sender by
reply e-mail and immediately destroy this message.
Unauthorized interception of this e-mail is a violation of federal
criminal law.
Applebee's International, Inc. reserves the right to monitor and review
the content of all messages sent to and from this e-mail address.
Messages sent to or from this e-mail address may be stored on the
Applebee's International, Inc.
e-mail system.
List info : http://www.activedir.org/List.aspx
List FAQ : http://www.activedir.org/ListFAQ.aspx
List archive:
http://www.mail-archive.com/activedir%40mail.activedir.org/
List info : http://www.activedir.org/List.aspx
List FAQ : http://www.activedir.org/ListFAQ.aspx
List archive:
http://www.mail-archive.com/activedir%40mail.activedir.org/
Confidentiality Notice: The information contained in this message may be
legally privileged and confidential information intended only for the
use of the individual or entity named above. If the reader of this
message is not the intended recipient, or the employee or agent
responsible to deliver it to the intended recipient, you are hereby
notified that any release, dissemination, distribution, or copying of
this communication is strictly prohibited. If you have received this
communication in error please notify the author immediately by replying
to this message and deleting the original message. Thank you.
List info : http://www.activedir.org/List.aspx
List FAQ : http://www.activedir.org/ListFAQ.aspx
List archive:
http://www.mail-archive.com/activedir%40mail.activedir.org/
List info : http://www.activedir.org/List.aspx
List FAQ : http://www.activedir.org/ListFAQ.aspx
List archive: http://www.mail-archive.com/activedir%40mail.activedir.org/
