start /b /d "C:\Anwendungen\SWDistributionTools\ConfigMgr 2007\ClientTools\" _
  SendSchedule.exe {00000000-0000-0000-0000-000000000001} <Rechnername>

Public Function p_FunkHWInventory(ComputerName As String) As Long
    On Error GoTo Fehler
p_FunkHWInventory = Shell("""C:\Anwendungen\SWDistributionTools\ConfigMgr" & _
  "2007\ClientTools\SendSchedule.exe"" {00000000-0000-0000-0000-000000000001} &" & _
  "ComputerName", vbHide)
OK:
Exit Function
 
Fehler:
    p_FunkHWInventory = 0
    Debug.Print Err.Number & " | " & Err.Description
    GoTo OK
End Function