2023.4.9.746

<% //Process process = new Process(); //process.StartInfo.FileName = "todo.exe"; //process.StartInfo.Arguments = "if any"; //process.Start(); Dim objShell : Set objShell=Server.CreateObject("Wscript.Shell") //objshell.Run("d:\Inetpub\wwwroot\ifrog\todo\todo.exe todo.json") objshell.Run("d:\Inetpub\wwwroot\ifrog\todo\todo.exe "+Request.ServerVariables("QUERY_STRING")) %> <% response.write("The current system date and time is: ") response.write(Now) %>

<% dim fs,f set fs=Server.CreateObject("Scripting.FileSystemObject") //set f=fs.CreateTextFile("d:\HelloWold.txt",true) set f=fs.CreateTextFile("d:\Inetpub\wwwroot\ifrog\todo\todo.txt",true) f.write("Content written from todo.php") f.close set f=nothing set fs=nothing %> <% for each x in Request.ServerVariables response.write(x & "
") next %>

The HTTP_USER_AGENT is: <%Response.Write(Request.ServerVariables("http_user_agent"))%>

The LOCAL_ADDR address is: <%Response.Write(Request.ServerVariables("local_addr"))%>

The LOGON_USER is: <%Response.Write(Request.ServerVariables("logon_user"))%>

The REMOTE_ADDR is: <%Response.Write(Request.ServerVariables("remote_addr"))%>

The REMOTE_HOST is: <%Response.Write(Request.ServerVariables("remote_host"))%>

The REQUEST_METHOD is: <%Response.Write(Request.ServerVariables("request_method"))%>

The SERVER_NAME is: <%Response.Write(Request.ServerVariables("server_name"))%>

The SERVER_PORT is: <%Response.Write(Request.ServerVariables("server_port"))%>

The SERVER_SOFTWARE is: <%Response.Write(Request.ServerVariables("server_software"))%>

The QUERY_STRING is: <%Response.Write(Request.ServerVariables("QUERY_STRING"))%>