Dim cRegCommand, cCommand, cFolder, cTitle , cManager
cTitle = "Установка КУ DE-BS"
cFolder = "C:\DEBS"

Set Args = Wscript.Arguments
Do
cFolder = InputBox("Укажите каталог, в который необходимо установить КУ.", cTitle, cFolder)
Loop until  cFolder <> "" or IsEmpty(cFolder) = True
If IsEmpty(cFolder) = False Then 
	Do
	cManager = InputBox("Укажите 4-буквенный код ПЛ. Этот код необходимо согласовать с СФР КР.", cTitle, cManager)
	Loop until  cManager <> "" or IsEmpty(cManager) = True
	If IsEmpty(cManager) = False Then 
		cCommand = "create.bat " & cManager & " " & cFolder
		Dim WshShell, oExec
     	Set WshShell = CreateObject("WScript.Shell")
     	WshShell.Run(cCommand)
	End if
End if