mirror of
https://github.com/jonbranan/globalscape.git
synced 2024-10-19 21:47:05 -05:00
Delete txt directory
This commit is contained in:
jonbranan
GitHub
parent
8dcd265468
commit
7346236e08
@ -1,2 +0,0 @@
|
||||
11/09/2020 12:06:53 -06:00 ARM Test Connection Succeeded.
|
||||
11/09/2020 12:06:53 -06:00 ARM Is Connected.
|
||||
@ -1,56 +0,0 @@
|
||||
'
|
||||
' FILE: ListUserInfo.vbs
|
||||
' CREATED: 6-8-2012 (dransom@globalscape.com)
|
||||
' UPDATED: 6-5-2014 (jhulme@globalscape.com)
|
||||
' VERSION: 1.1 *added Settings template membership | Test against 6.5.x
|
||||
' PURPOSE: Modified script that creates CSV file for users
|
||||
' Tested against EFT Server Versions 6.3.x / 6.4.x / 6.5.x
|
||||
' Provides the following information:
|
||||
' Username, Description, Email,Account Creation, Disk Quota, Used space, Home Directory, Settings template membership, Last Connection Time
|
||||
' **This script is provided AS IS to our customers as a courtesy no support is provided in modifying or debugging this script.
|
||||
'
|
||||
'
|
||||
Set SFTPServer = WScript.CreateObject("SFTPCOMInterface.CIServer")
|
||||
CRLF = (Chr(13)& Chr(10))
|
||||
'Modify the following variables to match your environment
|
||||
txtServer = "localhost"
|
||||
txtPort = "1100"
|
||||
txtUserName = "EFTADMIN"
|
||||
txtPassword = "EFTADMIN@123#"
|
||||
txtSiteName = "cibil.co.in"
|
||||
txtMyOutputFileName = ""D:\scriptlatest\EFT-Users-2017.csv"
|
||||
|
||||
SFTPServer.Connect txtServer, txtPort, txtUserName, txtPassword
|
||||
If Err.Number <> 0 Then
|
||||
WScript.Echo "Error connecting to '" & txtServer & ":" & txtPort & "' -- " & err.Description & " [" & CStr(err.Number) & "]", vbInformation, "Error"
|
||||
WScript.Quite(255)
|
||||
Else
|
||||
WScript.Echo "Connected to " & txtServer
|
||||
End If
|
||||
set Sites=SFTPServer.Sites
|
||||
|
||||
'open output file
|
||||
Set myFSO = CreateObject("Scripting.FileSystemObject")
|
||||
Set WriteStuff = myFSO.OpenTextFile(txtMyOutputFileName, 8, True)
|
||||
|
||||
'write data to a file
|
||||
For i = 0 to SFTPServer.Sites.Count-1
|
||||
set theSite=Sites.Item(i)
|
||||
if LCase(Trim(theSite.Name)) = LCase(Trim(txtSiteName)) then
|
||||
WriteStuff.WriteLine("Users for " & theSite.Name & ":")
|
||||
WriteStuff.WriteLine("Username,Description,Email,Account Creation, Disk Quota, Used space, Home Directory, Settings Template, Last Connection Time, Enabled")
|
||||
arUsers = theSite.GetUsers()
|
||||
For j = LBound(arUsers) to UBound(arUsers)
|
||||
set userSettings = theSite.GetUserSettings(arUsers(j))
|
||||
WriteStuff.WriteLine(arUsers(j) & ", " & userSettings.GetDescription & ", " & userSettings.Email & ", " & userSettings.AccountCreationTime & ", " & userSettings.GetMaxSpace & ", " & userSettings.GetUsedSpace & ", " & userSettings.GetHomeDirString & ", " & theSite.GetUserSettingsLevel(arUsers(j)) & ", " & userSettings.LastConnectionTime & ", " & userSettings.GetEnableAccount)
|
||||
Next
|
||||
end if
|
||||
Next
|
||||
|
||||
'Close all variables
|
||||
WriteStuff.Close
|
||||
SFTPServer.Close
|
||||
Set theSite = nothing
|
||||
Set SFTPServer = nothing
|
||||
SET WriteStuff = NOTHING
|
||||
SET myFSO = NOTHING
|
||||
@ -1,73 +0,0 @@
|
||||
'
|
||||
' FILE: ListUserInfo.vbs
|
||||
' CREATED: 6-8-2012 (dransom@globalscape.com)
|
||||
' UPDATED: 6-5-2014 (jhulme@globalscape.com)
|
||||
' VERSION: 1.1 *added Settings template membership | Test against 6.5.x
|
||||
' VERSION: 1.2 *added Added enabled/disabled
|
||||
' PURPOSE: Modified script that creates CSV file for users
|
||||
' Tested against EFT Server Versions 6.3.x / 6.4.x / 6.5.x
|
||||
' Provides the following information:
|
||||
' Username, Description, Email,Account Creation, Disk Quota, Used space, Home Directory, Settings template membership, Last Connection Time
|
||||
' **This script is provided AS IS to our customers as a courtesy no support is provided in modifying or debugging this script.
|
||||
'
|
||||
'
|
||||
Set SFTPServer = WScript.CreateObject("SFTPCOMInterface.CIServer")
|
||||
CRLF = (Chr(13)& Chr(10))
|
||||
'Modify the following variables to match your environment
|
||||
txtServer = "localhost"
|
||||
txtPort = "1100"
|
||||
txtUserName = "eftadmin"
|
||||
txtPassword = "a"
|
||||
txtSiteName = "GS"
|
||||
txtMyOutputFileName = "EFT-Users.csv"
|
||||
|
||||
SFTPServer.Connect txtServer, txtPort, txtUserName, txtPassword
|
||||
If Err.Number <> 0 Then
|
||||
WScript.Echo "Error connecting to '" & txtServer & ":" & txtPort & "' -- " & err.Description & " [" & CStr(err.Number) & "]", vbInformation, "Error"
|
||||
WScript.Quite(255)
|
||||
Else
|
||||
WScript.Echo "Connected to " & txtServer
|
||||
End If
|
||||
set Sites=SFTPServer.Sites
|
||||
|
||||
'open output file
|
||||
Set myFSO = CreateObject("Scripting.FileSystemObject")
|
||||
Set WriteStuff = myFSO.OpenTextFile(txtMyOutputFileName, 8, True)
|
||||
|
||||
'write data to a file
|
||||
For i = 0 to SFTPServer.Sites.Count-1
|
||||
set theSite=Sites.Item(i)
|
||||
if LCase(Trim(theSite.Name)) = LCase(Trim(txtSiteName)) then
|
||||
WriteStuff.WriteLine("Users for " & theSite.Name & ":")
|
||||
WriteStuff.WriteLine("Username,Description,Email,Account Creation, Disk Quota, Used space, Home Directory, Settings Template, Last Connection Time, Enabled")
|
||||
arUsers = theSite.GetUsers()
|
||||
For j = LBound(arUsers) to UBound(arUsers)
|
||||
set userSettings = theSite.GetUserSettings(arUsers(j))
|
||||
|
||||
'Is the account enabled?
|
||||
if userSettings.GetEnableAccount = true then
|
||||
txtEnable = "enabled"
|
||||
else
|
||||
txtEnable = "disabled"
|
||||
end if
|
||||
|
||||
if userSettings.GetEnableDiskQuota = 1 then
|
||||
txtQuota = "enabled"
|
||||
else if userSettings.GetEnableDiskQuota = 0 then
|
||||
txtQuota = "Disabled"
|
||||
else
|
||||
txtQuota = "Inherited"
|
||||
end if
|
||||
|
||||
WriteStuff.WriteLine(arUsers(j) & ", " & userSettings.GetDescription & ", " & userSettings.Email & ", " & userSettings.AccountCreationTime & ", " & userSettings.GetMaxSpace & ", " & userSettings.GetUsedSpace & ", " & userSettings.GetHomeDirString & ", " & theSite.GetUserSettingsLevel(arUsers(j)) & ", " & userSettings.LastConnectionTime & ", " & txtEnable)
|
||||
Next
|
||||
end if
|
||||
Next
|
||||
|
||||
'Close all variables
|
||||
WriteStuff.Close
|
||||
SFTPServer.Close
|
||||
Set theSite = nothing
|
||||
Set SFTPServer = nothing
|
||||
SET WriteStuff = NOTHING
|
||||
SET myFSO = NOTHING
|
||||
@ -1,31 +0,0 @@
|
||||
'
|
||||
|
||||
'
|
||||
Set SFTPServer = WScript.CreateObject("SFTPCOMInterface.CIServer")
|
||||
txtServer = "localhost"
|
||||
txtPort = "1100"
|
||||
txtUserName = "test"
|
||||
txtPassword = "test"
|
||||
|
||||
' On Error Resume Next
|
||||
SFTPServer.Connect txtServer, txtPort, txtUserName, txtPassword
|
||||
If Err.Number <> 0 Then
|
||||
WScript.Echo "Error connecting to '" & txtServer & ":" & txtPort & "' -- " & err.Description & " [" & CStr(err.Number) & "]", vbInformation, "Error"
|
||||
WScript.Quite(255)
|
||||
Else
|
||||
WScript.Echo "Connected to " & txtServer
|
||||
End If
|
||||
set Sites=SFTPServer.Sites
|
||||
|
||||
For i = 0 to SFTPServer.Sites.Count-1
|
||||
set theSite=Sites.Item(i)
|
||||
SFTPhrase = theSite.SFTPKeyPassphrase
|
||||
SSLPassphrase = theSite.GetPassPhrase()
|
||||
Wscript.Echo theSite.Name & "SFTP Passphrase " & SFTPhrase
|
||||
Wscript.Echo theSite.Name & "SSL Passphrase " & SSLPassphrase
|
||||
Next
|
||||
|
||||
Set theSite = nothing
|
||||
Set SFTPServer = nothing
|
||||
SET WriteStuff = NOTHING
|
||||
SET myFSO = NOTHING
|
||||
@ -1,2 +0,0 @@
|
||||
cd “CProgram FilesGlobalSCAPEDMZ Gatewaybin”
|
||||
DMZGatewayServerService.exe -d “CProgram FilesGlobalSCAPEDMZ GatewayconfDMZGatewayServerService.conf”
|
||||
Binary file not shown.
@ -1,46 +0,0 @@
|
||||
Set SFTPServer = WScript.CreateObject("SFTPCOMInterface.CIServer")
|
||||
|
||||
CRLF = (Chr(13)& Chr(10))
|
||||
txtServer = "192.168.102.28"
|
||||
txtPort = "1100"
|
||||
txtAdminUserName = "eftadmin"
|
||||
txtPassword = "a"
|
||||
|
||||
If Not Connect(txtServer, txtPort, txtAdminUserName, txtPassword) Then
|
||||
WScript.Quit(0)
|
||||
End If
|
||||
siteName = "GS"
|
||||
set selectedSite = Nothing
|
||||
set sites = SFTPServer.Sites()
|
||||
For i = 0 To sites.Count -1
|
||||
set site = sites.Item(i)
|
||||
If site.Name = siteName Then
|
||||
set selectedSite = site
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
|
||||
If Not selectedSite Is Nothing Then
|
||||
|
||||
selectedSite.RemoveFolder("/usr/folder")
|
||||
|
||||
End If
|
||||
|
||||
SFTPServer.Close
|
||||
Set SFTPServer = nothing
|
||||
|
||||
Function Connect (serverOrIpAddress, port, username, password)
|
||||
|
||||
On Error Resume Next
|
||||
Err.Clear
|
||||
|
||||
SFTPServer.Connect serverOrIpAddress, port, username, password
|
||||
|
||||
If Err.Number <> 0 Then
|
||||
WScript.Echo "Error connecting to '" & serverOrIpAddress & ":" & port & "' -- " & err.Description & " [" & CStr(err.Number) & "]", vbInformation, "Error"
|
||||
Connect = False
|
||||
Exit Function
|
||||
End If
|
||||
|
||||
Connect = True
|
||||
End Function
|
||||
@ -1 +0,0 @@
|
||||
VFS Path, Physical Path, Folder Status
|
||||
Loading…
Reference in New Issue
Block a user