#DEFINE HKEY_CURRENT_USER -2147483647
strComputer = "."
oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\"+ strComputer + "\root\default:StdRegProv")
strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer"
strValueName = "HideClock"
dwValue = 1
oReg.SetDWORDValue(HKEY_CURRENT_USER,strKeyPath,strValueName,dwValue)