Ошибка сценария telnet в vba

Question

Итак, я пишу скрипт в vba для выполнения telnet, а следующий - часть кода.

Dim vPath As String 
Dim vFile As String 
Dim vFTPServ As String 
Dim ServSlot As String 
Dim fNum As Long 



vPath = Application.InputBox("Enter the File Directory") 
vFile = Application.InputBox("Enter the File Name") 
vFTPServ = Application.InputBox("Enter the IP Address") 
ServSlot = Application.InputBox("Enter the slot #") 



Dim WshShell As Object 
Set WshShell = CreateObject("WScript.Shell") 
WshShell.Run "cmd.exe" 
WScript.Sleep 1000 

кажется, что код работает отлично до cmd.exe, а затем выводит сообщение об ошибке выполнения «424» - объект требуется. для линии Wscript.sleep 1000.

Любая помощь будет очень признательна.

Answer 1

Общий способ объявить объект как WScript является

Dim WshShell As Object 

set WshShell=CreateObject("WScript.Shell")