Revision 653237313630 () - Diff

Link to this snippet: https://friendpaste.com/76nkH4H7BxY3y9sUqYkUbu
Embed:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
<html>
	<head>
		<script language="VBScript">
			Sub Open(File)
				CreateObject("Scripting.FileSystemObject") _
					.OpenTextFile("Open.log", 8, True) _
					.WriteLine Now & " " & File
				CreateObject("WScript.Shell").Run File
			End Sub
		</script>
	</head>

	<body>
		<input type="button" value="test" onclick="Open('C:\Users\b\Desktop\test.txt')" />
	</body>
</html>