Change the Get Input section to look like the following
' Get input
Set ArgObj = Wscript.Arguments
sAdminUser = ArgObj(0) ' domain\user credentials
sAdminPass = ArgObj(1) ' admin password
sOldCname = ArgObj(2) ' current computer name
sNewCname = ArgObj(3) ' new computer name
Now the VB will accept your 4 prompted Variables from the kaseya Procedure