'// Create HTML Shortcut for given Folders
Set fso = CreateObject("Scripting.FileSystemObject")
' Input via Arguments
If WScript.Arguments.Count > 0 then
For I = 0 to WScript.Arguments.Count - 1
If fso.FolderExists(WScript.Arguments.Item(I)) Then
Call CreateFile(WScript.Arguments.Item(I))
End if
Next
Else
Wscript.Echo "Pass folders in the Arguments"
End If
Function CreateFile(strFolder)
Set outFile = fso.CreateTextFile(strFolder & "\Shortcut to My Testing.html", True)
outFile.WriteLine("")
outFile.WriteLine("")
outFile.WriteLine("")
outFile.WriteLine("")
outFile.WriteLine("Please open link with Internet Explorer
")
outFile.WriteLine("")
outFile.WriteLine(strFolder & "")
outFile.WriteLine("")
outFile.Close
Set outFile = Nothing
End Function