Include "config.vbs" Sub Include(sInstFile) Dim oFSO, f, s Set oFSO = CreateObject("Scripting.FileSystemObject") Set f = oFSO.OpenTextFile(sInstFile) s = f.ReadAll f.Close ExecuteGlobal s End Sub Function Dos2Unix() Set WshShell = CreateObject("WScript.Shell") cmd = ssh + " -i "+key_pri+" -l "+User+" "+Ip+" " cmd = cmd + "cd "+RemotePath+";" cmd = cmd + "cd build/build-ios-remote;" cmd = cmd + "rm -f dos2unix.sh;" cmd = cmd + "tar -xzvf dos2unix.sh.tar.gz;" cmd = cmd + "bash dos2unix.sh;" ret = WshShell.Run(cmd, 8, true) Dos2Unix = ret End Function ret = Dos2Unix() WScript.Echo(ret)