Subversion Repositories DevTools

Rev

Rev 165 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 165 Rev 171
Line 168... Line 168...
168
		'End If
168
		'End If
169
		
169
		
170
		'Set oExec = Nothing
170
		'Set oExec = Nothing
171
		Set sysShell = Nothing
171
		Set sysShell = Nothing
172
	End Sub
172
	End Sub
173
    '-----------------------------------------------------------------------------------------------------------------	
-
 
174
	Sub Create_Pkg_Folder ( SSpkg_name, SSpkg_version )
-
 
175
		Dim outMachine, outDpkg_root, outUser, outPassword
-
 
176
		Dim login_details, command, sysShell, oExec, outStrOut, outStrErr
-
 
177
		
-
 
178
		Call Get_Archive_Telnet_Login_Details ( outUser, outPassword )
-
 
179
		
-
 
180
		' --- Commands to run ---
-
 
181
		' Creates pkg_name and pkg_version folder if required with rwx permissions for all
-
 
182
		'command = _
-
 
183
		'"cd "& pArchive_Path &" && "&_
-
 
184
		'"mkdir -p -m a+rwx "& SSpkg_name &"; "&_
-
 
185
		'"cd "& pArchive_Path &"/"& SSpkg_name &" && "&_
-
 
186
		'"mkdir -p -m a+rwx "& SSpkg_version &"; "
-
 
187
		
-
 
188
		command = _
-
 
189
		"sudo ~/sbin/make_pkgfolder "& pArchive_Path &" '"& SSpkg_name &"' '"& SSpkg_version &"';"
-
 
190
		
-
 
191
		WScript.Echo command
-
 
192
		
-
 
193
		' --- SSH client with login details ---
-
 
194
		'login_details = AppPath & SSH_EXE &" -ssh -batch "& outUser &"@"& pRemote_Host &" -pw "& outPassword 
-
 
195
		login_details = AppPath & WINRSH_EXE &" -q -h "& pRemote_Host &" -l "& outUser &" -p "& outPassword 
-
 
196
		
-
 
197
		Set sysShell = WScript.CreateObject("WScript.Shell")
-
 
198
		sysShell.Run "cmd.exe /c "& login_details &" """& command &"""", 0, True
-
 
199
		
-
 
200
		'Set oExec = sysShell.Exec( login_details &" "& command )
-
 
201
		
-
 
202
		'outStrOut = oExec.StdOut.ReadAll
-
 
203
		'outStrErr = oExec.StdErr.ReadAll
-
 
204
		
-
 
205
		'If outStrErr <> "" Then
-
 
206
		'	Call Raise_Event ( enumEVENT_ERROR, "[sub:Create_Pkg_Folder]", _
-
 
207
		'					   "user: "& outUser & VBNewLine &_
-
 
208
		'					   "command: "& command , _
-
 
209
		'					   outStrErr, enum_RELEASE_NOTES_FAILED )
-
 
210
		'End If
-
 
211
		
-
 
212
		'Set oExec = Nothing
-
 
213
		Set sysShell = Nothing
-
 
214
	End Sub
-
 
215
	'-----------------------------------------------------------------------------------------------------------------
173
	'-----------------------------------------------------------------------------------------------------------------
216
	Sub Map_Network_Drive ( SSunc, outMappedDrive )
174
	Sub Map_Network_Drive ( SSunc, outMappedDrive )
217
		Dim outUser, outPassword
175
		Dim outUser, outPassword
218
		Dim ValidDrivesARR, validDrive, UsedDrives
176
		Dim ValidDrivesARR, validDrive, UsedDrives
219
		Dim i, WshNetwork, oDrives, oFilesys, drv
177
		Dim i, WshNetwork, oDrives, oFilesys, drv