VBScript:
aa.bat:
rem wscript abc.vbs male
cscript abc.vbs male
abc.vbs:
set wnet =CreateObject("WScript.Network")
uname=wnet.UserName
uage = InputBox("Please enter your age")
gender = WScript.Arguments(0)
MsgBox "Your user name is " & uname & "," & uage & "," & gender