[Iska]

Так?

Код:

Option Explicit

Dim strPassword


strPassword = InputBox("Enter password", "Password")

If Len(strPassword) <> 0 Then
	WScript.CreateObject("WScript.Shell").Run _
		"""%ProgramFiles%\DameWare Development\DameWare NT Utilities 7.5\DWRCC.exe""" & _
		" -c: -h: -m:" & WScript.CreateObject("htmlfile").script.clipboardData.getData("Text") & _
		" -u:User -p:" & strPassword
End If

WScript.Quit 0