benny/wmic
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

wmi-1.3.16 from opsview.com

Browse Source
This commit is contained in:
Are Casilla
2019-02-16 00:16:52 +01:00
parent 163fdd3d1b
commit 17b3af2911
2146 changed files with 678824 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Samba/source/script/tests/win/wintest_remove.exp
+71
View File
@@ -0,0 +1,71 @@
# An expect script to remove a directory and share which was
# previously setup for an smbtorture test.
# Copyright Brad Henry <brad@samba.org> 2006
# Released under the GNU GPL v2 or later.
proc remove_test { remote_prompt sharepath sharename hosts_file_path \
backup_hosts_filename } {
set err_str [delete_share $remote_prompt $sharename]
if { $err_str != "OK" } {
puts stderr "Error in function delete_share: $err_str."
puts stderr "Function remove_test will continue."
}
set err_str [delete_directory $remote_prompt $sharepath]
if { $err_str != "OK" } {
puts stderr "Error in function delete_directory: $err_str."
puts stderr "Function remove_test will continue."
}
# Overwrite the current hosts file with the backup we made during setup.
set err_str [delete_hosts_entry $remote_prompt $hosts_file_path \
$backup_hosts_filename]
if { $err_str != "OK" } {
puts stderr "Error in function delete_hosts_entry: $err_str."
puts stderr "Function remove_test will continue."
}
return $err_str
}
# read parameters
set remote_host $env(SMBTORTURE_REMOTE_HOST)
set remote_prompt $env(SMBTORTURE_REMOTE_PROMPT)
set username $env(SMBTORTURE_USERNAME)
set password $env(SMBTORTURE_PASSWORD)
set timeout $env(SMBTORTURE_EXPECT_TIMEOUT)
set sharepath $env(SMBTORTURE_REMOTE_SHARE_PATH)
set sharename $env(SMBTORTURE_REMOTE_SHARE_NAME)
set backup_hosts_filename $env(REMOTE_BACKUP_HOSTS_FILENAME)
set hosts_file_path $env(REMOTE_HOSTS_FILE_PATH)
set err_val [spawn $env(SHELL)]
if {$err_val == 0} {
puts stderr "Expect failed while spawning a shell process."
exit $err_val
}
set err_str [telnet_login $remote_prompt $remote_host $username $password]
if {$err_str != "OK"} {
puts stderr "\nFunction telnet_login failed during cleanup."
puts stderr "Error was: $err_str."
exit 1
}
set err_str [remove_test $remote_prompt $sharepath $sharename \
$hosts_file_path $backup_hosts_filename]
if {$err_str != "OK"} {
puts stderr "\nFunction remove_test failed."
puts stderr "Error was: $err_str."
# Log off from the telnet server.
send "exit\r\n"
exit 1
}
# Log off from the telnet server.
send "exit\r\n"
exit 0