How Do I Fix These VB Scripts That Have Just Stopped Working?
I have a couple of VBScripts that were generated a couple of years ago as one of the options in CuteFTP Pro. The scripts connect by FTP, go to my website, then upload or delete certain files. They've worked fine with no problems every month until recently. Now, I'm getting this error message:
With a little help from an expert here on EE, I think I've narrowed down what the problem really is. I don't think the problem is with CuteFTP. I think it is connected with some type of Microsoft system operations, and I have a feeling that an expert versed in Visual Basic can help me get the scripts running again. It looks like the problem is connected with the "Library Not Registered" notation, but that's as far as I can go on my own technically.
Here's part of one of the scripts in question:
--------------------------
' VBS Script Generated by CuteFTP (TM) macro recorder.
' Generated at: 4/8/2015 4:51:49 PM.
' Revised 9/1/2015
' MASTER Upload Spots Script - Oldies - Six Spots
' Create TEConnection object
Set MySite = CreateObject("CuteFTPPro.T
' Initialize remote server host name, protocol, port, etc.
MySite.Host = "ftp.[mywebiste].com"
MySite.Protocol = "FTP"
MySite.Port = 21
MySite.Retries = 30
MySite.Delay = 30
MySite.MaxConnections = 4
MySite.TransferType = "AUTO"
MySite.DataChannel = "DEFAULT"
MySite.AutoRename = "OFF"
' WARNING!!! SENSITIVE DATA: user name and password.
MySite.Login = "mylogin(not real)"
MySite.Password = "mylogin(not real)"
MySite.SocksInfo = ""
MySite.ProxyInfo = ""
' Connect to remote server
MySite.Connect
' 1
MySite.Upload "C:\Radio George\Marketing Architects\RFA Oldies Spots\Spot1_spot.mp3", "/oldies/oldies1/Spot1_spo
MySite.Upload "C:\Radio George\Marketing Architects\RFA Oldies Spots\Spot2_spot.mp3", "/oldies/oldies1/Spot2_spo
' 2
MySite.Upload "C:\Radio George\Marketing Architects\RFA Oldies Spots\Spot3_spot.mp3", "/oldies/oldies2/Spot3_spo
MySite.Upload "C:\Radio George\Marketing Architects\RFA Oldies Spots\Spot4_spot.mp3", "/oldies/oldies2/Spot4_spo
' 3
--------------------------
...and so on.
If you or any of your fellow experts can nail this one, I would really appreciate it. These scripts save me a LOT of work on a regular basis and have them stop working all at once is a big hassle.
Thanks for your time and attention.
With a little help from an expert here on EE, I think I've narrowed down what the problem really is. I don't think the problem is with CuteFTP. I think it is connected with some type of Microsoft system operations, and I have a feeling that an expert versed in Visual Basic can help me get the scripts running again. It looks like the problem is connected with the "Library Not Registered" notation, but that's as far as I can go on my own technically.
Here's part of one of the scripts in question:
--------------------------
' VBS Script Generated by CuteFTP (TM) macro recorder.
' Generated at: 4/8/2015 4:51:49 PM.
' Revised 9/1/2015
' MASTER Upload Spots Script - Oldies - Six Spots
' Create TEConnection object
Set MySite = CreateObject("CuteFTPPro.T
' Initialize remote server host name, protocol, port, etc.
MySite.Host = "ftp.[mywebiste].com"
MySite.Protocol = "FTP"
MySite.Port = 21
MySite.Retries = 30
MySite.Delay = 30
MySite.MaxConnections = 4
MySite.TransferType = "AUTO"
MySite.DataChannel = "DEFAULT"
MySite.AutoRename = "OFF"
' WARNING!!! SENSITIVE DATA: user name and password.
MySite.Login = "mylogin(not real)"
MySite.Password = "mylogin(not real)"
MySite.SocksInfo = ""
MySite.ProxyInfo = ""
' Connect to remote server
MySite.Connect
' 1
MySite.Upload "C:\Radio George\Marketing Architects\RFA Oldies Spots\Spot1_spot.mp3", "/oldies/oldies1/Spot1_spo
MySite.Upload "C:\Radio George\Marketing Architects\RFA Oldies Spots\Spot2_spot.mp3", "/oldies/oldies1/Spot2_spo
' 2
MySite.Upload "C:\Radio George\Marketing Architects\RFA Oldies Spots\Spot3_spot.mp3", "/oldies/oldies2/Spot3_spo
MySite.Upload "C:\Radio George\Marketing Architects\RFA Oldies Spots\Spot4_spot.mp3", "/oldies/oldies2/Spot4_spo
' 3
--------------------------
...and so on.
If you or any of your fellow experts can nail this one, I would really appreciate it. These scripts save me a LOT of work on a regular basis and have them stop working all at once is a big hassle.
Thanks for your time and attention.
John Tsioumpris
I reckon that VBS uses a dll that for some reason got unregistered....if you show the complete script maybe we can help better
ASKER
John.
As you requested, here's the whole script:
--------------------------
' VBS Script Generated by CuteFTP (TM) macro recorder.
' Generated at: 4/20/2015 8:24:15 PM.
' REVISED 9/1/2015
' MASTER Delete Spots Script - Oldies - Six Spots
' Create TEConnection object
Set MySite = CreateObject("CuteFTPPro.T
' Initialize remote server host name, protocol, port, etc.
MySite.Host = "ftp.radiogeorge.com"
MySite.Protocol = "FTP"
MySite.Port = 21
MySite.Retries = 30
MySite.Delay = 30
MySite.MaxConnections = 2
MySite.TransferType = "AUTO"
MySite.DataChannel = "DEFAULT"
MySite.AutoRename = "OFF"
' WARNING!!! SENSITIVE DATA: user name and password.
MySite.Login = "removed for safety"
MySite.Password = "removed for safety"
MySite.SocksInfo = ""
MySite.ProxyInfo = ""
' Connect to remote server
MySite.Connect
MySite.RemoteRemove "/oldies/oldies1/Spot1_spo
MySite.RemoteRemove "/oldies/oldies1/Spot2_spo
'2
MySite.RemoteRemove "/oldies/oldies2/Spot3_spo
MySite.RemoteRemove "/oldies/oldies2/Spot4_spo
'3
MySite.RemoteRemove "/oldies/oldies3/Spot5_spo
MySite.RemoteRemove "/oldies/oldies3/Spot6_spo
'4
MySite.RemoteRemove "/oldies/oldies4/Spot1_spo
MySite.RemoteRemove "/oldies/oldies4/Spot2_spo
'5
MySite.RemoteRemove "/oldies/oldies5/Spot3_spo
MySite.RemoteRemove "/oldies/oldies5/Spot4_spo
'6
MySite.RemoteRemove "/oldies/oldies6/Spot5_spo
MySite.RemoteRemove "/oldies/oldies6/Spot6_spo
'7
MySite.RemoteRemove "/oldies/oldies7/Spot1_spo
MySite.RemoteRemove "/oldies/oldies7/Spot2_spo
'8
MySite.RemoteRemove "/oldies/oldies8/Spot3_spo
MySite.RemoteRemove "/oldies/oldies8/Spot4_spo
'9
MySite.RemoteRemove "/oldies/oldies9/Spot5_spo
MySite.RemoteRemove "/oldies/oldies9/Spot6_spo
'10
MySite.RemoteRemove "/oldies/oldies10/Spot1_sp
MySite.RemoteRemove "/oldies/oldies10/Spot2_sp
'11
MySite.RemoteRemove "/oldies/oldies11/Spot3_sp
MySite.RemoteRemove "/oldies/oldies11/Spot4_sp
'12
MySite.RemoteRemove "/oldies/oldies12/Spot5_sp
MySite.RemoteRemove "/oldies/oldies12/Spot6_sp
'13
MySite.RemoteRemove "/oldies/oldies13/Spot1_sp
MySite.RemoteRemove "/oldies/oldies13/Spot2_sp
'14
MySite.RemoteRemove "/oldies/oldies14/Spot3_sp
MySite.RemoteRemove "/oldies/oldies14/Spot4_sp
'15
MySite.RemoteRemove "/oldies/oldies15/Spot5_sp
MySite.RemoteRemove "/oldies/oldies15/Spot6_sp
'16
MySite.RemoteRemove "/oldies/oldies16/Spot1_sp
MySite.RemoteRemove "/oldies/oldies16/Spot2_sp
'17
MySite.RemoteRemove "/oldies/oldies17/Spot3_sp
MySite.RemoteRemove "/oldies/oldies17/Spot4_sp
'18
MySite.RemoteRemove "/oldies/oldies18/Spot5_sp
MySite.RemoteRemove "/oldies/oldies18/Spot6_sp
'19
MySite.RemoteRemove "/oldies/oldies19/Spot1_sp
MySite.RemoteRemove "/oldies/oldies19/Spot2_sp
'20
MySite.RemoteRemove "/oldies/oldies20/Spot3_sp
MySite.RemoteRemove "/oldies/oldies20/Spot4_sp
'21
MySite.RemoteRemove "/oldies/oldies21/Spot5_sp
MySite.RemoteRemove "/oldies/oldies21/Spot6_sp
'22
MySite.RemoteRemove "/oldies/oldies22/Spot1_sp
MySite.RemoteRemove "/oldies/oldies22/Spot2_sp
'23
MySite.RemoteRemove "/oldies/oldies23/Spot3_sp
MySite.RemoteRemove "/oldies/oldies23/Spot4_sp
'24
MySite.RemoteRemove "/oldies/oldies24/Spot5_sp
MySite.RemoteRemove "/oldies/oldies24/Spot6_sp
'25
MySite.RemoteRemove "/oldies/oldies25/Spot1_sp
MySite.RemoteRemove "/oldies/oldies25/Spot2_sp
'26
MySite.RemoteRemove "/oldies/oldies26/Spot3_sp
MySite.RemoteRemove "/oldies/oldies26/Spot4_sp
'27
MySite.RemoteRemove "/oldies/oldies27/Spot5_sp
MySite.RemoteRemove "/oldies/oldies27/Spot6_sp
'28
MySite.RemoteRemove "/oldies/oldies28/Spot1_sp
MySite.RemoteRemove "/oldies/oldies28/Spot2_sp
'29
MySite.RemoteRemove "/oldies/oldies29/Spot3_sp
MySite.RemoteRemove "/oldies/oldies29/Spot4_sp
'30
MySite.RemoteRemove "/oldies/oldies30/Spot5_sp
MySite.RemoteRemove "/oldies/oldies30/Spot6_sp
'31
MySite.RemoteRemove "/oldies/oldies31/Spot1_sp
MySite.RemoteRemove "/oldies/oldies31/Spot2_sp
'32
MySite.RemoteRemove "/oldies/oldies32/Spot3_sp
MySite.RemoteRemove "/oldies/oldies32/Spot4_sp
'33
MySite.RemoteRemove "/oldies/oldies33/Spot5_sp
MySite.RemoteRemove "/oldies/oldies33/Spot6_sp
'34
MySite.RemoteRemove "/oldies/oldies34/Spot1_sp
MySite.RemoteRemove "/oldies/oldies34/Spot2_sp
'35
MySite.RemoteRemove "/oldies/oldies35/Spot3_sp
MySite.RemoteRemove "/oldies/oldies35/Spot4_sp
'36
MySite.RemoteRemove "/oldies/oldies36/Spot5_sp
MySite.RemoteRemove "/oldies/oldies36/Spot6_sp
'37
MySite.RemoteRemove "/oldies/oldies37/Spot1_sp
MySite.RemoteRemove "/oldies/oldies37/Spot2_sp
MySite.Disconnect
--------------------------
As you requested, here's the whole script:
--------------------------
' VBS Script Generated by CuteFTP (TM) macro recorder.
' Generated at: 4/20/2015 8:24:15 PM.
' REVISED 9/1/2015
' MASTER Delete Spots Script - Oldies - Six Spots
' Create TEConnection object
Set MySite = CreateObject("CuteFTPPro.T
' Initialize remote server host name, protocol, port, etc.
MySite.Host = "ftp.radiogeorge.com"
MySite.Protocol = "FTP"
MySite.Port = 21
MySite.Retries = 30
MySite.Delay = 30
MySite.MaxConnections = 2
MySite.TransferType = "AUTO"
MySite.DataChannel = "DEFAULT"
MySite.AutoRename = "OFF"
' WARNING!!! SENSITIVE DATA: user name and password.
MySite.Login = "removed for safety"
MySite.Password = "removed for safety"
MySite.SocksInfo = ""
MySite.ProxyInfo = ""
' Connect to remote server
MySite.Connect
MySite.RemoteRemove "/oldies/oldies1/Spot1_spo
MySite.RemoteRemove "/oldies/oldies1/Spot2_spo
'2
MySite.RemoteRemove "/oldies/oldies2/Spot3_spo
MySite.RemoteRemove "/oldies/oldies2/Spot4_spo
'3
MySite.RemoteRemove "/oldies/oldies3/Spot5_spo
MySite.RemoteRemove "/oldies/oldies3/Spot6_spo
'4
MySite.RemoteRemove "/oldies/oldies4/Spot1_spo
MySite.RemoteRemove "/oldies/oldies4/Spot2_spo
'5
MySite.RemoteRemove "/oldies/oldies5/Spot3_spo
MySite.RemoteRemove "/oldies/oldies5/Spot4_spo
'6
MySite.RemoteRemove "/oldies/oldies6/Spot5_spo
MySite.RemoteRemove "/oldies/oldies6/Spot6_spo
'7
MySite.RemoteRemove "/oldies/oldies7/Spot1_spo
MySite.RemoteRemove "/oldies/oldies7/Spot2_spo
'8
MySite.RemoteRemove "/oldies/oldies8/Spot3_spo
MySite.RemoteRemove "/oldies/oldies8/Spot4_spo
'9
MySite.RemoteRemove "/oldies/oldies9/Spot5_spo
MySite.RemoteRemove "/oldies/oldies9/Spot6_spo
'10
MySite.RemoteRemove "/oldies/oldies10/Spot1_sp
MySite.RemoteRemove "/oldies/oldies10/Spot2_sp
'11
MySite.RemoteRemove "/oldies/oldies11/Spot3_sp
MySite.RemoteRemove "/oldies/oldies11/Spot4_sp
'12
MySite.RemoteRemove "/oldies/oldies12/Spot5_sp
MySite.RemoteRemove "/oldies/oldies12/Spot6_sp
'13
MySite.RemoteRemove "/oldies/oldies13/Spot1_sp
MySite.RemoteRemove "/oldies/oldies13/Spot2_sp
'14
MySite.RemoteRemove "/oldies/oldies14/Spot3_sp
MySite.RemoteRemove "/oldies/oldies14/Spot4_sp
'15
MySite.RemoteRemove "/oldies/oldies15/Spot5_sp
MySite.RemoteRemove "/oldies/oldies15/Spot6_sp
'16
MySite.RemoteRemove "/oldies/oldies16/Spot1_sp
MySite.RemoteRemove "/oldies/oldies16/Spot2_sp
'17
MySite.RemoteRemove "/oldies/oldies17/Spot3_sp
MySite.RemoteRemove "/oldies/oldies17/Spot4_sp
'18
MySite.RemoteRemove "/oldies/oldies18/Spot5_sp
MySite.RemoteRemove "/oldies/oldies18/Spot6_sp
'19
MySite.RemoteRemove "/oldies/oldies19/Spot1_sp
MySite.RemoteRemove "/oldies/oldies19/Spot2_sp
'20
MySite.RemoteRemove "/oldies/oldies20/Spot3_sp
MySite.RemoteRemove "/oldies/oldies20/Spot4_sp
'21
MySite.RemoteRemove "/oldies/oldies21/Spot5_sp
MySite.RemoteRemove "/oldies/oldies21/Spot6_sp
'22
MySite.RemoteRemove "/oldies/oldies22/Spot1_sp
MySite.RemoteRemove "/oldies/oldies22/Spot2_sp
'23
MySite.RemoteRemove "/oldies/oldies23/Spot3_sp
MySite.RemoteRemove "/oldies/oldies23/Spot4_sp
'24
MySite.RemoteRemove "/oldies/oldies24/Spot5_sp
MySite.RemoteRemove "/oldies/oldies24/Spot6_sp
'25
MySite.RemoteRemove "/oldies/oldies25/Spot1_sp
MySite.RemoteRemove "/oldies/oldies25/Spot2_sp
'26
MySite.RemoteRemove "/oldies/oldies26/Spot3_sp
MySite.RemoteRemove "/oldies/oldies26/Spot4_sp
'27
MySite.RemoteRemove "/oldies/oldies27/Spot5_sp
MySite.RemoteRemove "/oldies/oldies27/Spot6_sp
'28
MySite.RemoteRemove "/oldies/oldies28/Spot1_sp
MySite.RemoteRemove "/oldies/oldies28/Spot2_sp
'29
MySite.RemoteRemove "/oldies/oldies29/Spot3_sp
MySite.RemoteRemove "/oldies/oldies29/Spot4_sp
'30
MySite.RemoteRemove "/oldies/oldies30/Spot5_sp
MySite.RemoteRemove "/oldies/oldies30/Spot6_sp
'31
MySite.RemoteRemove "/oldies/oldies31/Spot1_sp
MySite.RemoteRemove "/oldies/oldies31/Spot2_sp
'32
MySite.RemoteRemove "/oldies/oldies32/Spot3_sp
MySite.RemoteRemove "/oldies/oldies32/Spot4_sp
'33
MySite.RemoteRemove "/oldies/oldies33/Spot5_sp
MySite.RemoteRemove "/oldies/oldies33/Spot6_sp
'34
MySite.RemoteRemove "/oldies/oldies34/Spot1_sp
MySite.RemoteRemove "/oldies/oldies34/Spot2_sp
'35
MySite.RemoteRemove "/oldies/oldies35/Spot3_sp
MySite.RemoteRemove "/oldies/oldies35/Spot4_sp
'36
MySite.RemoteRemove "/oldies/oldies36/Spot5_sp
MySite.RemoteRemove "/oldies/oldies36/Spot6_sp
'37
MySite.RemoteRemove "/oldies/oldies37/Spot1_sp
MySite.RemoteRemove "/oldies/oldies37/Spot2_sp
MySite.Disconnect
--------------------------
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
A simple solution but a toughie unless you knew a LOT of situation-specific details, which unfortunately, cannot be completely spelled out in this type of forum/exchange.