※このアプリケーションを実行するユーザは、ORA_DBA グループ に所属している必要があります
※ sqlplus.exe にパスが通っている必要があります


拡張子:txtvbswsfjsphpjavahtmlutf8sjis
Imports System.IO

Public Class Form1

	Private Sub Form1_Load(ByVal sender As System.Object, _
	ByVal e As System.EventArgs) Handles MyBase.Load

		Me.パスワード.PasswordChar = "*"

	End Sub

	Private Sub 実行_Click(ByVal sender As System.Object, _
	ByVal e As System.EventArgs) Handles 実行.Click

		' プログラムと同じ場所にコマンドファイルを作成
		Dim commandFile As String = Application.StartupPath + "\command.sql"
		Dim commandWriter As StreamWriter = _
		 New StreamWriter(commandFile, False, System.Text.Encoding.GetEncoding("shift_jis"))

		Dim commandString As String = ""
		commandString += "ALTER USER " + Me.ユーザー.Text + " SYSTEM account unlock;"
		commandString += ControlChars.CrLf
		commandString += "ALTER USER " + Me.ユーザー.Text + " IDENTIFIED BY "
		commandString += Me.パスワード.Text + ";"
		commandString += ControlChars.CrLf
		commandString += "EXIT"
		commandString += ControlChars.CrLf

		commandWriter.Write(commandString)
		commandWriter.Flush()
		commandWriter.Close()

		Dim processInfo As ProcessStartInfo = New ProcessStartInfo()
		processInfo.FileName = "sqlplus.exe"
		' コマンドプロンプトを表示しない
		processInfo.WindowStyle = ProcessWindowStyle.Hidden
		processInfo.Arguments = "/ as sysdba @" + commandFile
		Process.Start(processInfo)

		MessageBox.Show("処理が終了しました")

	End Sub
End Class