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 " Wscript.Quit End Sub