start.vbs

Set objFSO = CreateObject("Scripting.FileSystemObject")
strFolder = "C:\WinLock"
If Not objFSO.FolderExists(strFolder) Then
   objFSO.CreateFolder(strFolder)
End If

strFile = "lock.vbs"
strDestination = "C:\WinLock\" & strFile
objFSO.CopyFile strFile, strDestination, True

Set objShell = CreateObject("WScript.Shell")
strDesktop = objShell.SpecialFolders("Desktop")
strLinkName = strDesktop & "\Locker.lnk"
Set objLink = objShell.CreateShortcut(strLinkName)
objLink.TargetPath = "C:\WinLock\lock.vbs"
objLink.Save