Dim WshNetwork
Set WshNetwork = CreateObject("Wscript.Network")
ComputerName = WshNetwork.ComputerName
strAnswer = InputBox("Please enter your name:", "Your Name", ComputerName)
Set objShell = WScript.CreateObject("WScript.Shell")

if strAnswer = "" then

else
'MsgBox(Replace(Trim(strAnswer), " ", "_"))
objShell.Run ("C:\DriftRunnerRRallyBuild_331\VRT_GEN_4.exe multiplayerHostServer 0 multiplayerJoinServer 1 multiplayerJoinIPAddress 10.0.10.180 playerName """ & Replace(Trim(strAnswer), " ", "_") & """")
end if