Фрагмент замены для запроса пароля

Script.StdOut.Write & _
«Введите пароль для пользователя #SMTP и нажмите клавишу Enter: «
strSMTPPassword = objPasswordPrompt.GetPassword()
WScript.Echo vbCRLF
strUserID = WScript.Arguments.Named(«User»)
If Len(strUserID) = 0 Then strUserID = «»
Else
WScript.StdOut.Write «Type password for « & UCase(strUserID) _
& « user and press the Enter key: «
strPassword = objPasswordPrompt.GetPassword()
WScript.Echo vbCRLF
End If