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.
29 lines
495 B
29 lines
495 B
1 month ago
|
|
||
|
|
|
||
|
|
|
||
|
|
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 MkWorkPath()
|
||
|
|
|
||
|
|
Set WshShell = CreateObject("WScript.Shell")
|
||
|
|
|
||
|
|
cmd = ssh + " -i "+key_pri+" -l "+User+" "+Ip
|
||
|
|
cmd = cmd + " mkdir -p "+RemoteWrokPath
|
||
|
|
|
||
|
|
MkWorkPath = WshShell.Run(cmd,0,true)
|
||
|
|
|
||
|
|
End Function
|
||
|
|
|
||
|
|
|
||
|
|
ret = MkWorkPath()
|
||
|
|
|
||
|
|
WScript.Echo(ret)
|