Drag and Drop zone protected files

UnblockFiles.vbs

Option Explicit

Call WScript.Quit(Main())

Function Main()
	Dim ObjShell, ObjResult, ObjStdIn
	Set ObjShell = WScript.CreateObject("WScript.Shell")
	Set ObjResult = ObjShell.Exec("powershell -NoLogo -Command -")
	Set ObjStdIn = ObjResult.StdIn
	
	Dim ObjArgs, StrArgs, StrCmd
	Set ObjArgs = WScript.Arguments
	For Each StrArgs In ObjArgs
		StrCmd = "Unblock-File -LiteralPath """ & StrArgs & """"
		Call Debug.WriteLine(StrCmd)
		Call ObjStdIn.WriteLine(StrCmd)
	Next
	Set ObjArgs = Nothing
	
	Call ObjStdIn.Close()
	Set ObjStdIn = Nothing
	Main = ObjResult.ExitCode
	Set ObjResult = Nothing
	Set ObjShell = Nothing
End Function