Setting time on Windows XP via NTP

Windows XP has a built-in timesynchronization feature that’s designed to automaticallysynchronize your computer’s clock with an Internet time server on aregular basis. To access this feature, double-click the clock inthe notification area of the taskbar. From the Date And TimeProperties dialog box, select Internet Time. Make sure that theAutomatically Synchronize With An Internet Time Server check box isselected.

The Server drop-down list contains two timeservers: Microsoft’s time server at time.windows.com and the U.S.government’s atomic clock at time.nist.gov.

While you can manually type the name of anytime server that uses the Simple Network Time Protocol (SNTP) inthe Server text box, it’s more convenient to add time servers tothe list. However, this feature is available only onstand-alone Windows XP systems or systems that are a part of aworkgroup; it is not available on Windows XP Professional systemsthat are a part of a domain. Here’s how to add time servers:

  1. Launch the Registry Editor (Regedit.exe).
  2. Go to HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Current
    Version\DateTime\Servers.
  3. Right-click the Servers key, and select New | String value.
  4. Name the value 3, and press [Enter] twice to access the Edit StringValue dialog box.
  5. Type the address of the SNTP time server in the Value Data textbox, and click OK.
  6. Repeat Steps 3 through 5 for each additional SNTP time server youwant to add, incrementing the value name each time: 4, 5, 6, and soon.
  7. Close the Registry Editor.

For a list of acceptable SNTP time servers, see Microsoft Knowledge Base article Q262680.

Advertisements

VBScript to change ‘My Computer’ to the actual Computer’s name

'==============================================================================
'LANG       : VBScript
'NAME       : computername.vbs
'DESCRIPTION: Changes My Computer to actual Computername
'==============================================================================
Option Explicit

Const HKEY_CLASSES_ROOT = &H80000000
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002
Const HKEY_USERS = &H80000003
Const HKEY_PERFORMANCE_DATA = &H80000004
Const HKEY_CURRENT_CONFIG = &H80000005
Const HKEY_DYN_DATA = &H80000006

Const REG_NONE = 0
Const REG_SZ = 1
Const REG_EXPAND_SZ = 2
Const REG_BINARY = 3
Const REG_DWORD = 4
Const REG_DWORD_LITTLE_ENDIAN = 4
Const REG_DWORD_BIG_ENDIAN = 5
Const REG_LINK = 6
Const REG_MULTI_SZ = 7
Const REG_RESOURCE_LIST = 8

Dim strComputer
Dim objReg
Dim strKeyPath
Dim strValueName
Dim strValue

'==============================================================================
'==============================================================================
'Main Body
On error resume next

strComputer = "."
'wscript.echo "Binding to Registry Provider"
Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")

strKeyPath = "CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
strValueName = "LocalizedString"
strValue = "%COMPUTERNAME%"

'wscript.echo "Setting Registry Key"
objReg.SetExpandedStringValue HKEY_CLASSES_ROOT,strKeyPath,strValueName,strValue

if Err.Number <> 0 then
    wscript.echo ("Error # " & CStr(Err.Number) & " " & Err.Description)
End if

wscript.quit (Err.number)