Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Add-Type -AssemblyName System.Windows.Forms
- $NtpValue = [Microsoft.Win32.Registry]::GetValue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\W32Time\TimeProviders\NtpClient\", "SpecialPollInterval", 0)
- If ($NtpValue -eq 0) {
- [Windows.Forms.MessageBox]::Show("設定値の取得に失敗しました。デフォルト値をセットします。")
- $NtpValue = 604800
- }
- Function Button1_Click() {
- $TextBox1.Text = [String]([Int]$TextBox1.Text)
- $TextBox2.Text = [String]([Int]$TextBox2.Text)
- $NtpValue = ([Int]$TextBox1.Text * 86400) + ([Int]$TextBox2.Text * 3600)
- If ($NtpValue -lt 3600) {
- [Windows.Forms.MessageBox]::Show("値が小さすぎます。")
- Return
- }
- If ([Windows.Forms.MessageBox]::Show("更新間隔を " + $TextBox1.Text + "日 と " + $TextBox2.Text + "時間 " + "(" + $NtpValue + "秒) おきに設定しますか?", "Question", [Windows.Forms.MessageBoxButtons]::YesNo) -eq [Windows.Forms.DialogResult]::Yes) {
- Try {
- [Microsoft.Win32.Registry]::SetValue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\W32Time\TimeProviders\NtpClient\", "SpecialPollInterval", $NtpValue, [Microsoft.Win32.RegistryValueKind]::DWord)
- [Windows.Forms.MessageBox]::Show("設定しました!")
- } Catch {
- [Windows.Forms.MessageBox]::Show("設定に失敗しました。管理者として実行し、もう一度お試しください。")
- }
- }
- }
- $Form1 = New-Object System.Windows.Forms.Form
- $Form1.Text = "NTP 更新間隔設定"
- $Form1.Width = 275
- $Form1.Height = 100
- $Form1.FormBorderStyle = [Windows.Forms.FormBorderStyle]::Fixed3D
- $Button1 = New-Object System.Windows.Forms.Button
- $Button1.Text = "設定する"
- $Button1.Top = 35
- $Button1.Left = 90
- $Button1.Add_Click({Button1_Click})
- $TextBox1 = New-Object System.Windows.Forms.TextBox
- $TextBox1.Multiline = $False
- $TextBox1.Left = 10
- $TextBox1.Top = 10
- $TextBox1.Width = 80
- $TextBox1.ScrollBars = [System.Windows.Forms.ScrollBars]::None
- $TextBox1.Text = [String]($NtpValue / 86400)
- $TextBox2 = New-Object System.Windows.Forms.TextBox
- $TextBox2.Multiline = $False
- $TextBox2.Left = 130
- $TextBox2.Top = 10
- $TextBox2.Width = 80
- $TextBox2.ScrollBars = [System.Windows.Forms.ScrollBars]::None
- $TextBox2.Text = [String](($NtpValue % 86400) / 3600)
- $Label1 = New-Object System.Windows.Forms.Label
- $Label1.Left = 90
- $Label1.Top = 15
- $Label1.Text = "日"
- $Label2 = New-Object System.Windows.Forms.Label
- $Label2.Left = 210
- $Label2.Top = 15
- $Label2.Text = "時間"
- $Form1.Controls.Add($Button1)
- $Form1.Controls.Add($TextBox1)
- $Form1.Controls.Add($TextBox2)
- $Form1.Controls.Add($Label1)
- $Form1.Controls.Add($Label2)
- $Form1.ShowDialog()
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement