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 and the U.S.government’s atomic clock at

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
  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.


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_CURRENT_CONFIG = &H80000005
Const HKEY_DYN_DATA = &H80000006

Const REG_NONE = 0
Const REG_SZ = 1
Const REG_BINARY = 3
Const REG_DWORD = 4
Const REG_LINK = 6
Const REG_MULTI_SZ = 7

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)