Jeans & Development コンピューターのことなどを綴った日記、メモと Bookmark 集 (旧:目から鱗 w/SQLite) SFC mini用の新しいinstall.vbsが完成。 option explicit Dim wmi,os,value,wsh,sha,sfo Set sfo=CreateObject("Scripting.FileSystemObject") do while WScript.Arguments.Count=0 and WScript.Version>=5.7 'Check if Vista Set wmi = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2") Set os = wmi.ExecQuery ("SELECT * FROM Wi