早速のRESありがとうございます。> ひょっとして下記のせいかもしれません。> OsVer = CreateObject("SysInfo.SYSINFO").OSVersionOsVer = "5.01" にして上手くいきました。どうもありがとうございました。