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


	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 SystemCD
	SystemCD = ""


	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

		Query = "SELECT システムCD FROM TC1システムM"
		Query = Query & " WHERE (("
		Query = Query & " SELECT COUNT(*) AS kensu FROM TC1システムM"
		Query = Query & " WHERE デフォルトフラグ = '1'"
'		Query = Query & " AND システムCD <> 'TESTINST' AND システムCD <> 'DEFSYSCD' AND システムCD <> 'INPORT14' AND システムCD <> 'SFC2'"
		Query = Query & " ) = 1) "
'		Query = Query & " AND デフォルトフラグ = '1' AND システムCD <> 'TESTINST' AND システムCD <> 'DEFSYSCD' AND システムCD <> 'INPORT14' AND システムCD <> 'SFC2'"



		Set Content = db.Execute(Query)
		if Not(Content.BOF Or Content.EOF) Then
			SystemCD = Content.Fields("システムCD")
		End if



	End If



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



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