ownCloudKnocker.VBS

Option Explicit

Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8

Const vbNormal = 0
Const vbReadOnly = 1
Const vbHidden = 2
Const vbSystem = 4
Const vbVolume = 8
Const vbDirectory = 16
Const vbArchive = 32
Const vbAlias = 64
Const vbCompressed = 128

Dim FSO
Dim FileName
Dim File
Dim Stream

On Error Resume Next

Set FSO = CreateObject("Scripting.FileSystemObject")
If Err.Number <> 0 Then WScript.Quit

FileName = WScript.Arguments(0)
If Err.Number <> 0 Then WScript.Quit

Set File = FSO.GetFile(FileName)
If Err.Number = 0 Then File.Attributes = File.Attributes And Not vbHidden
Err.Clear

Set Stream = FSO.CreateTextFile(FileName, True, True)
Stream.Write Now
Stream.Close
If Err.Number <> 0 Then WScript.Quit

Set File = FSO.GetFile(FileName)
File.Attributes = File.Attributes Or vbHidden