mmServerName = "yourMMServerName"

Set objWMISvc = GetObject( "winmgmts:\\.\root\cimv2" )
Set colItems = objWMISvc.ExecQuery( "Select * from Win32_ComputerSystem", , 48 )
For Each objItem in colItems
	strComputer = objItem.Name
    strComputerDomain = objItem.Domain
	
	myFQDN = strComputer & "." & strComputerDomain
	
        'WScript.Echo strComputer & "." & strComputerDomain
Next



Set objShell = WScript.CreateObject("WScript.Shell")
 
'All users Desktop
allUsersDesktop = objShell.SpecialFolders("AllUsersDesktop")
 
'The current users Desktop
usersDesktop = objShell.SpecialFolders("Desktop")
 
'Where to create the new shorcut
Set objShortCut = objShell.CreateShortcut(usersDesktop & "\OneClickMM.url")
 
'What does the shortcut point to

oneClickURL = "http://" & mmServerName & "/MM/Home/InstantMM?ComputerName=" & myFQDN
'http://scom01/MM/Home/InstantMM?ComputerName=SQL01.scom2k16.com

objShortCut.TargetPath = oneClickURL

'Create the shortcut
objShortCut.Save