On Error Resume Next


	Dim ArgCount, ServerName
	ArgCount = 0



	' Loop through arguments
	While ArgCount < Wscript.Arguments.Count
		
		' Determine switches used
		Select Case Wscript.Arguments(ArgCount)

			 Case "-s": 	' Designate backup version number
					' Move to next arg, which should be parameter
					ArgCount =	ArgCount + 1	
					If ArgCount => Wscript.Arguments.Count Then
						 Call UsageMsg
					Else
						 ServerName = Wscript.Arguments(Argcount)
					End If

			 Case "-?", "-h", "/?":
					Call UsageMsg

			 Case Else:
					Call UsageMsg

		End Select

		' Move pointer to next argument
		ArgCount = ArgCount + 1

	Wend



	Dim Query, Content, Content2, Query2

	Set db = CreateObject("ADODB.Connection")
	SQLConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sj4user;Password=sj4;Initial Catalog=sj4webdb;Data Source=" & ServerName 

	db.Open SQLConn	
	Dim ii
	Dim Version
	Query2 = ""


	Query = "SELECT name FROM sysobjects WHERE (xtype = 'U') AND (status >= 0) AND name = 'TC1システムM' ORDER BY name"
	Set Content = db.Execute(Query)
	If Not(Content.BOF Or Content.EOF) Then

		Query2 = "SELECT MAX(バージョン) AS バージョン FROM TC1システムM"
	Else

		Query = "SELECT name FROM sysobjects WHERE (xtype = 'U') AND (status >= 0) AND name = 'TSシステムM' ORDER BY name"
		Set Content = db.Execute(Query)
		If Not(Content.BOF Or Content.EOF) Then

			Query2 = "SELECT バージョン FROM TSシステムM"
		End If
	End If

	If Query2 <> "" Then
		Set Content = db.Execute(Query2)
		if Not(Content.BOF Or Content.EOF) Then
			Version = Content.Fields("バージョン")
		End if

		Dim WshShell, tmp
		Set WshShell = WScript.CreateObject("WScript.Shell")
		tmp = WshShell.RegWrite("HKLM\SOFTWARE\システム・フューチャー株式会社\スーパー実践くん4WebCollabo\version",Version)

	End If


' Display usage messsage, then QUIT
Sub UsageMsg
  Wscript.Echo "Usage:  cscript システムバージョンをレジストリに書き込む.vbs -s <ServerName>"
  Wscript.Quit
End Sub