Set FS = CreateObject("Scripting.FileSystemObject") Set WshShell = WScript.CreateObject("WScript.Shell") Set WshEnv = WshShell.Environment("Process") EnvOS = WshEnv("OS") CurrentPath = FS.GetAbsolutePathName(".") SysRootPath = FS.GetSpecialFolder(WindowsFolder) Set FpxinfFile1 = FS.OpenTextFile(CurrentPath+"\fpxpress.inf") Inftext = FpxinfFile1.ReadAll Inftext = Replace(Inftext,"%49100%",CurrentPath) If EnvOS = "Windows_NT" then Inftext = Replace(Inftext,"プログラム\アクセサリ","アクセサリ") End if Set FpxinfFile2 = FS.CreateTextFile(CurrentPath+"\fpxpress.inf",true) FpxinfFile2.Write(Inftext) If EnvOS = "Windows_NT" then WshShell.Run(SysRootPath+"\System32\rundll32.exe setupapi,InstallHinfSection DefaultInstall 132 "+CurrentPath+"\fpxpress.inf") Else WshShell.Run(SysRootPath+"\rundll32.exe setupapi,InstallHinfSection DefaultInstall 132 "+CurrentPath+"\fpxpress.inf") End if