Advertisement
Guest User

Untitled

a guest
Mar 7th, 2015
259
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ;*************************************************************************
  2. ;*************************************************************************
  3.  
  4. ; Set NTP Time & Time-zone 
  5.  
  6. ; ~Australian GP~      
  7.     SHELL '%COMSPEC% /c date /t | find "09/03/2015" >nul' IF @ERROR =0
  8.     GOTO "Timezone_AUS_Win7" else
  9.     SHELL '%COMSPEC% /c date /t | find "10/03/2015" >nul' IF @ERROR =0
  10.     GOTO "Timezone_AUS_Win7" else
  11.     SHELL '%COMSPEC% /c date /t | find "11/03/2015" >nul' IF @ERROR =0
  12.     GOTO "Timezone_AUS_Win7" else
  13.     SHELL '%COMSPEC% /c date /t | find "12/03/2015" >nul' IF @ERROR =0
  14.     GOTO "Timezone_AUS_Win7" else
  15.     SHELL '%COMSPEC% /c date /t | find "13/03/2015" >nul' IF @ERROR =0
  16.     GOTO "Timezone_AUS_Win7" else
  17.     SHELL '%COMSPEC% /c date /t | find "14/03/2015" >nul' IF @ERROR =0
  18.     GOTO "Timezone_AUS_Win7" else
  19.     SHELL '%COMSPEC% /c date /t | find "15/03/2015" >nul' IF @ERROR =0
  20.     GOTO "Timezone_AUS_Win7" else
  21.     EndIf
  22.     EndIf
  23.     EndIf
  24.     EndIf
  25.     EndIf
  26.     EndIf
  27. ENDIF  
  28.    
  29.  
  30. ;*************************************************************************
  31. ;*************************************************************************
  32.  
  33. ; Timezone Sub-Routines
  34.  
  35. :Timezone_AUS_Win7
  36. SHELL '%COMSPEC% /c tzutil /s "AUS Eastern Standard Time"'
  37. SHELL '%COMSPEC% /c w32tm /config /computer:%logonserver% /update'
  38. SHELL '%COMSPEC% /c w32tm /resync'
  39. SHELL 'NET TIME \\"Server_Name" /set /y'
  40. MessageBox("Timezone Logon Script Successful!","Company Name : Australian GP",4160,0)
  41. QUIT
  42.  
  43. ;*************************************************************************
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement