You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

35 lines
664 B

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)