sMsisdn = WScript.Arguments(0)
sStatus = WScript.Arguments(1)

sFile = "C:\sms.txt"

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(sFile, 8, True)

objFile.WriteLine(Now & vbTab & sMsisdn & vbTab & sStatus)
objFile.Close