Set WshShell = CreateObject("WScript.Shell") 
'****** Put the path of the file in fsoFile variable ******
Set fso = CreateObject("Scripting.FileSystemObject") 
Set fsoFile = fso.GetFile(WScript.Arguments.Item(0))
'****** Check if the file is in the System Space ******
If InStr(chr(34)&fsoFile&chr(34), "C:\Windows\") = 2 Then 
   WshShell.Run(chr(34)&fsoFile&chr(34))
   WScript.Quit
Else
    If InStr(chr(34)&fsoFile&chr(34),"C:\Program Files\") = 2 Then 
       WshShell.Run(chr(34)&fsoFile&chr(34))
       WScript.Quit
    Else
        If InStr(chr(34)&fsoFile&chr(34),"C:\Program Files (x86)\") = 2 Then 
           WshShell.Run(chr(34)&fsoFile&chr(34))
           WScript.Quit
        Else 
'******  Clear file attributes
           fsoFile.Attributes = fsoFile.Attributes AND 0
'****** Create, run and delete another script AddZoneIdentifierToFile.vbs , that adds the proper ADS ******
		Set f = fso.CreateTextFile("C:\Windows\temp\AddZoneIdentifierToFile.vbs")
		f.WriteLine ("Set WshShell = CreateObject(" & chr(34) & "WScript.Shell" & chr(34)&")")
		f.WriteLine ("Set fso = CreateObject(" & chr(34) & "Scripting.FileSystemObject" & chr(34)&")")
		f.WriteLine ("Set f = fso.CreateTextFile(" & chr(34) & fsoFile & ":Zone.Identifier" & chr(34)&")")
		f.WriteLine ("f.WriteLine " & chr(34) & "[ZoneTransfer]" & chr(34))
		f.WriteLine ("f.WriteLine " & chr(34) & "ZoneId=3" & chr(34))
		f.WriteLine ("f.close")
		WshShell.Run ("C:\Windows\Temp\AddZoneIdentifierToFile.vbs")
		Set f = fso.OpenTextFile("C:\Windows\Temp\AddZoneIdentifierToFile.vbs", 1)
		f.Close
		WScript.Sleep 1000
		fso.DeleteFile("C:\Windows\Temp\AddZoneIdentifierToFile.vbs")
'******   Running the file  ******
           WshShell.Run(chr(34)&fsoFile&chr(34))
	   End If
    End If
End If     
Set WshShell = Nothing
WScript.Quit