create_zoom_shortcut.vbs

' Create Zoom Meeting shortcut
Option Explicit

Dim meetingId
meetingId = InputBox("Enter Meeting ID")
If IsEmpty(meetingId) Or meetingId = "" Then
  WScript.Quit
End If

Dim passCode
passCode = InputBox("Enter Passcode")
If IsEmpty(passCode) Or passCode = "" Then
  WScript.Quit
End If

Dim shortcutName
shortcutName = InputBox("Enter shortcut name to crete")
If IsEmpty(shortcutName) Or shortcutName = "" Then
  WScript.Quit
End If

Dim objWshShell
Set objWshShell = WScript.CreateObject("WScript.Shell")
Dim objShortcut
Set objShortcut = objWshShell.CreateShortcut(shortcutName & ".url")
objShortcut.TargetPath = "zoommtg://zoom.us/join?confno=" & meetingId & "&pwd=" & passCode
objShortcut.Save